Select Code to Download

my @evens = map { $_%2 ? () : $_ } 1..10;

my %hash = map { /^f/ ? () 
                      : (getkey($_) => $_) }
           @array;