use Data::Dumper;
my @dim_array = ([qw(1 2 3)],[qw(3 2 1)]);
print Dumper(\@dim_array);
print "\n";
print Dumper(@dim_array);

##</code><code>##