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

6 lines
98 B
Perl

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