@sorted = sort { expensivefunc( $a ) <=> expensivefunc( $b ) } @data;