my @array = qw/
	foo
	bar
	baz
	bodkin
/;

##</code><code>##

my %hash2 = ();
foreach $_ (@array) {
	$hash2{getkey($_)} = $_ unless /^f/;
}

##</code><code>##

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