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