#!/usr/bin/perl -w @languages = ("A","C","D","B","A"); foreach $lang (@languages) { if ($lang eq "Perl") { print "Perl is $lang.\n"; } else { print "$lang ideas.\n"; } }