%h = ();
@keys   = qw/a    b    c/;
@values = qw/foo bar baz/;
$h{$k} = $v while defined($k = pop @keys) && defined($v = pop @values);