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