Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. Each time through the loop, foreach places the next element of the list into the scalar variable
#!/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";
    }
}