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