Select Code to Download

#!/usr/bin/perl -w

...
my @ordered = sort { sortable( $a ) <=> sortable( $b ) } @unordered;

print join "\n", map { $_ ."\t". sortable( $_ ) } @ordered;

N       1
...
HD2     1320
HE1     1410
HE2     1420