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