Memoizzazione

È sufficiente memorizzare da qualche parte i valori di f()

my %precomp_f = ();
foreach my $x ( @unordered ) {
    $precomp_f{ $x } = f( $x );
}

@ordered = sort { $precomp_f{ $a } <=> 
                  $precomp_f{ $b } } 
           @unordered;