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