[05:32][nick:~/dev/perl_dev/test/monks]$ cat 1133944.pl
#!/usr/bin/env perl     
use strict;
use warnings;
    
print " Enter dimension : ";
my $n = <STDIN>;



my $k=1;
my @matrix;

for(my $i = 0; $i < $n; $i++) { 
  for(my $j = 0; $j < $n; $j++) {
    $matrix[$i][$j]= $k++; 
  }
}

print " the matrix : \n\n";

for(my $i = 0; $i < $n; $i++) { 
  for(my $j = 0; $j < $n; $j++) {
    print "$matrix[$i][$j]  ";
  }
  print "\n";
}