Here is a somewhat more idiomatic implementation of your code:

use strict; 

 my %hash;
 my $key='NetWallah';

$hash{$key} = [        
  map{
    [  map {int(rand()+0.5)} 0..9  ]
  } 0..9
]; 
 
printit(\%hash); 
 
 sub printit{
    my $href=shift;
    for my $key(sort keys %$href){
         my $row = 0;
         print "{$key} =>\n";
         for my $rowref (@{$href->{$key}}) {
            print "  $row\t";
            for my $val (@$rowref) {
               print "$val  ";
            }
            $row++;
            print "\n";
         }
    }     
}
[download]