use strict; use warnings;

my @array_1 = ("tom","harry","diana","nick","sally","henry");
my @array_2 = ("play()","eat()","sleep()");

foreach (@array_1)

{
	my $action = shift(@array_2);

	print "$action maps to $_\n";	

	push(@array_2, $action);

}

which prints

play() maps to tom
eat() maps to harry
sleep() maps to diana
play() maps to nick
eat() maps to sally
sleep() maps to henry