my $criteria = 3;
my @sorted = sort { (split /\|\|/, $hash{$a} )[$criteria] cmp
                    (split /\|\|/, $hash{$b} )[$criteria] } keys %hash;