my @to_keep = qw{ a c };
my %keepers;
foreach ( @to_keep ) {
    $keepers{$_}++;
}

##</code><code>##

my %keepers = map { $_ => 1 } @to_keep;