Select Code to Download

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

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

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