print "Enter keys (sep with space): ";
chomp (my $key = <STDIN>);

print "Enter vals (sep with space): ";
chomp (my $val = <STDIN>);

my %hash;
@hash{ split '\s',$key } = split '\s',$val;