Select Code to Download

use Sort::Key::Multi qw(u3_keysort); # u3 stands for 3 unsigned intege
+r keys

...
               my @key = split /\s+/;
               ($key[0], $key[1], $map_10th{$key[9]})
             } @data;