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

##</code><code>##

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

##</code><code>##

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