my @to_keep = qw{ a c };
my %keepers;
%keepers = map { $_++ } @to_keep;

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

$keepers1 = {
          'a' => 'c'
        };