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