Select Code to Download

use warnings;
use strict;
...
    }
}

rank[1][1] is 1
rank[2][1] is 3
rank[3][1] is 2

use warnings;
use strict;
...
        print "rank[$i][$j] is $rank[$i][$j]\n";
    }
}

rank[1][1] is 1
rank[2][1] is 3
rank[3][1] is 2
rank[4][1] is 2