#!/usr/bin/perl;
use strict;
use warnings;

my @input_array = ( ["x","y"], ["L","M"], [2,45] ); 


foreach my $row (@input_array)
{
   print "@$row\n";
}

print "\nanother way\n";

for (my $row=0; $row<@input_array; $row++)
{
   for (my $column=0; $column <@{$input_array[$row]}; $column++)
   {
      print "$input_array[$row][$column] ";
   }
   print "\n";
}

print "\nyet, another way\n";

for (my $row=0; $row<3; $row++)
{
   for (my $col =0; $col<2; $col++)
   {
      print "[$row][$col]=$input_array[$row][$col] "
   }
   print "\n";
}   
__END__
x y
L M
2 45

another way
x y 
L M 
2 45 

yet, another way
[0][0]=x [0][1]=y 
[1][0]=L [1][1]=M 
[2][0]=2 [2][1]=45