Shell Programming and Scripting

#!/usr/bin/perl
my $no=1;
my $str;
while( <> )
{
        chomp;
        if(/([0-9]{5})$/)
        {
                $hsh{ $_ }=$& ;
        }
}
foreach $char(sort { $hsh{$b} <=> $hsh{$a} } keys %hsh )
{
      $char =~ /([0-9]{5})$/ ;
      if( $str ne "$`" ) {
      $str=$`;
      print "$char\n" if( $no++ <= 3);
      }
}

$ happy.pl file
johnm100222
maryyy00122
johnmm00003

awk '{name = value = $0
      gsub(/[0-9]/,"",name)
      gsub(/[a-zA-Z]/,"",value)
      if ( value > xv[name] ) x[name] = $0; xv[name]=value }
     END { for ( name in x ) print x[name] }' ~/txt