#!/usr/bin/perl
$beatles = 'John Paul George Ringo';
@names = split / /, $beatles;
for (@names) {
    print "$_ was a Beatle.\n";
}