my %hash;
foreach my people (@people)
  { $hash{$people}= shift @jobs; }