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