my %things;
for (my $i = 0; $i < @people; $i++)
{
  $things{$people[$i]} = $jobs{$i};
}