foreach my $ref ( [ $name, $lastname ] ) { my( $x, $y ) = @$ref; # do something }