#!/usr/bin/perl

my $arrayVar = {};  # this is actually a hashref

print "Filling Array...\n";
my ($rows,$cols) = (10, 10);
 foreach my $row  (0..($rows-1)){
    foreach my $col (0..($cols-1)){
      $arrayVar->{"$row,$col"} = 2*$row + 3*$col;
   }
}


foreach my $key (sort keys %$arrayVar){

         print "$key -> ",$$arrayVar{$key},"\n"; 
     #or
     #  print "$key -> ",$arrayVar->{$key},"\n"; 
    }