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