#!/usr/bin/perl -w

@languages = ("A","C","D","B","A");

foreach $subLang (@languages) {

    if ($subLang eq "Perl") {
        print "Perl is $subLang.\n";
    } else {
        print "$subLang ideas.\n";
    }
}