Select Code to Download

my @sorted = map { local $_ = $_; s/^.*\0//; $_ }
             sort
             map { normalize_digits($_) . "\0$_" }
             @data;