Help for this page

Select Code to Download


  1. or download this
    my @sorted = map { [substr($_, 0, 10), 10000-substr($_, 10, 4)] }
                 sort
                 map { sprintf("%10.10s%04d", $_->[0], 10000-$_->[1]) @uns
    +orted;