#!/usr/bin/perl
use strict;
use Data::Dumper;

my @keys = ('a','b','c');
my %hash=();
@hash{@keys} = 1;
print Dumper \%hash;
__END__
$VAR1 = {
          'c' => undef,
          'a' => 1,
          'b' => undef
        };