my %hash;
for my $i (0..$#people)
{ $hash{$people[$i]} = $jobs[$i]; }