#!/usr/bin/perl -wl
use strict;

my (@a, @b, $foo);
@a = qw/key1 key2/;
@b = qw/val1 val2/;
$foo = { map { $a[$_] => $b[$_] } 0..$#a };

print $foo->{key1};     # Prints 'val1'