Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...

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

Select or download this

N       01000
CA      02000
...
HE1     17401
HE2     17402
HH      17600