05:11][nick:~/dev/perl_dev/test/monks]$ perl 1133944.pl 
 Enter dimension : 4
 the matrix : 

1  2  3  4  
5  6  7  8  
9  10  11  12  
13  14  15  16