Ändere die Sortierung. Mach aus: sort{$a->[1] <=> $b->[1]} das hier: sort{$b->[1] <=> $a->[1]}