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