my %hash1 = map {getkey($_) => $_ unless /^f/} @array;