chomp(my @lines = <AN>);
my @items = map {
    [split " ", $_, 2]
} @lines;
my @sorted = sort { $b->[1] <=> $a->[1] } @items;
print "$_->[0] -> $_->[1]\n" for @sorted;