Select Code to Download

foreach my ($x,$y) (@name,@lastname)
{
  do something
}

use List::MoreUtils qw(each_array);
...
...
{ 
   do something
}