my @evens = map { $_%2 ? () : $_ } 1..10; #### my %hash = map { /^f/ ? () : (getkey($_) => $_) } @array;