for ([qw/Joe Blow/], [qw/John Doe/]) {
    my ($x, $y) = @$_;
    # do something
}

##</code><code>##

for ('Joe Blow', 'John Doe') {
    my ($x, $y) = split;
    # and so on
}

##</code><code>##

{
    my ($x, $y) = ($name, $lastname);
    # do something
}