in reply to Populating a hash with two arrays
$jobs{shift @people} = shift @jobs while (@people && @jobs); [download]
Obviously, TIMTOWTDI
pike