Maquillage funzionale





@ordered = map  { $_->[0] }
           sort { $a->[1] <=> $b->[1] }
           map  { [$_, f( $_ )] }
           @unordered;