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