my @output = map { ${$_->[0]} } sort { $a->[1] cmp $b->[1] } map { [\$_, expensive_func($_)] } @input;