{
	my @keys = map {...} @list;
	my @idx = sort {$keys[$a] cmp $keys[$b]} (0..$#list);
	@list = @list[@idx];
}

# or

{
	my @keys = map {...} @list;
	@list = @list[ sort {$keys[$a] cmp $keys[$b]} (0..$#list) ];
}