use warnings;
use strict;

my @total;
$total[1][1] = 123;
$total[2][1] = 345;
$total[3][1] = 222;

# hash of arrays: hash{ number } = [ i, j ]
my %hash;

for my $i ( 1 .. $#total ) {
    for my $j ( 1 .. $#{$total[$i]} ) {
        $hash{ $total[$i][$j] } =  [ $i, $j ];
    }
}

my @rank;
my $ranking = 0;
foreach my $value ( sort keys %hash ){
    my ( $i, $j ) = @{$hash{ $value }};
    $rank[$i][$j] = ++$ranking;
}

for my $i ( 1 .. $#rank ) {
    for my $j ( 1 .. $#{$rank[$i]} ) {
        print "rank[$i][$j] is $rank[$i][$j]\n";
    }
}