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

$Data::Dumper::Varname = 'keepers';
print Dumper( \%keepers );

keepers1 = {
          'c' => 1,
          'a' => 1
        };