RosettaCodeData/Task/Arrays/Perl/arrays-3.pl

 my @multi_dimensional = (
     [0, 1, 2, 3],
     [qw(a b c d e f g)],
     [qw(! $ % & *)],
 );