I think you want hash slices:

#!/usr/bin/perl -l

my @a = qw(foo bar baz);
my %h;

@h{@a} = (1, 42, 99);

use Data::Dumper;
print Dumper \%h;

print "@h{@a}";

__END__
$VAR1 = {
          'bar' => 42,
          'baz' => 99,
          'foo' => 1
        };

1 42 99
[download]