Select Code to Download

my @sorted = @list[
    map { unpack "N", substr($_,-4) }
    sort
...
        $key . pack "N", $_
    } 0..$#list
];

map {
    my $key = $list[$_];
    $key =~ s[(\d+)][ pack "N", $1 ]ge;
    $key . pack "N", $_
    } 0..$#list

my $key = $list[$_]
$key =~ s[(\d+)][ pack "N", $1 ]ge;