$jobs{shift @people} = shift @jobs while (@people && @jobs);