#!/usr/bin/perl     
use strict;
use warnings;
    
print " Enter dimension : ";
my $n = <STDIN>;
    
my $i=0;
my $j=0;
my $k=1;

my @matrix;# = ( $n , $n );

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

print " the matrix : \n\n";

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