use strict;
use Data::Dumper;

my @array;

for (my $i=0;$i<2;$i++)
{
  for (my $j=0;$j<2;$j++)
  {
     @array[$i, $j] = "$i.$j";
  }
}
print "Case 1...\n";
print Dumper(@array);

for (my $i=0;$i<2;$i++)
{
  for (my $j=0;$j<2;$j++)
  {
     $array[$i][$j] = "$i . $j";
  }
}
print "Case 2...\n";
print Dumper(@array);

for (my $i=0;$i<2;$i++)
{
  for (my $j=0;$j<2;$j++)
  {
     $array[$i, $j] = "$i . $j";
  }
}
print "Case 3...\n";
print Dumper(@array);