use List::MoreUtils qw(each_array);
...
my $names = each_array(@name, @lastname);
while ( my ($x, $y) = $names->() )
{ 
   do something
}