my @l = ( 5, 4, 3, 2, 1 );

@l ==> grep { $_ > 2 }
   ==> sort { $a <=> $b }
   ==> map  { $_ * 2 }
   ==> @final;

# Final contains ( 6, 8, 10 )