Select Code to Download

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

my @sorted  = sort { $a <=> $b } @l; # Sorted is ( 1, 2, 3, 4, 5 )
my @grepped = grep { $_ > 2 } @l;    # Grepped is ( 5, 4, 3 )
my @mapped  = map  { $_ * 2 } @l;    @ Mapped is ( 10, 8, 6, 4, 2 )

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

...
   ==> @final;

# Final contains ( 6, 8, 10 )