my %hash1 = map {getkey($_) => $_} grep {substr($_,0,1) ne 'f'} @array;