You could populate it with a hash slice

my %hash;
@hash{@people} = @jobs;
[download]

Or with map

my %hash = map { $people[$_] => $jobs[$_] } 0 .. $#people;
[download]

Finally a Haskell-esque approach

use Functional;
my %hash = @{ zip(\@people, \@jobs) };
[download]

All these examples assume both arrays are of the same length and that each index in the arrays correspond to the relative index in the other array (e.g $people[0] corresponds to $jobs[0]).
HTH

_________
broquaint