###################################################

#!/usr/bin/perl     

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++)  
{
print " see how the first  row changes automatically...\n\n";
for($j = 0; $j < $n; $j++)

{

$matrix[$i][$j]= $k++;

print "row = $i and col = $j input = $matrix[$i][$j]  firstrow $j = $matrix[0][$j] //for error checking \n";
	
}
 
}


    print " the matrix : \n\n";

for($i = 0; $i < $n; $i++)  
{

for($j = 0; $j < $n; $j++)

{


print "$matrix[$i][$j]  ";
	
}
 print "\n";
}

############################################