自己使用

 

use strict;
use warnings;
use Data::Dumper;
my %hash;
my %prod;
my %prod2;
while (<DATA>) {
  my ($a,$b) = split;
  push @{ $hash{$b} } , $a;
  $prod{$a}  = $b;
}

my $i = scalar keys %hash;
for my $e (sort {$b <=> $a} keys %hash) {
  for my $pid( @{ $hash{$e} } ) {
    print "$pid   $i  ";
    $prod2{$pid} = $i;
  }
  $i--;
}
print "-" x 20,$/;

for my $pid (sort {$prod2{$b} <=> $prod2{$a}}keys %prod) {
 print "$pid $prod{$pid} $prod2{$pid} ";
}

__DATA__
100 15
101 14
102 14
103 200
104 2
105 2
106 1