>perl -wMstrict -le
"my @ra_2d = (
   [ qw(a b c) ],
   [ qw(x y z) ],
   [ qw(p q r) ],
   );
 ;;
 print join '-',    $ra_2d[1]  ;
 print join '-', @{ $ra_2d[1] };
 ;;
 for my $arrayref_row (@ra_2d) {
   print join ':', @$arrayref_row;
   }
"
ARRAY(0xafc9dc)
x-y-z
a:b:c
x:y:z
p:q:r