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