Select Code to Download

(-e) ? doTheWork($_) : warn qq{"$_" doesn't exist!} for @ARGV;

@ages = (15, 18, 24);
foreach $age (@ages) {
    print "At age $age you ", ($age >= 21 ? "can" : "can't"), " buy a 
+beer.\n";
}

At age 15 you can't buy a beer.
At age 18 you can't buy a beer.
At age 24 you can buy a beer.

Perl            English
--------------------------------------------
...
doTheWork($_)           do the work with it
:                   else
warn qq{...}            warn that it doesn't exist.

foreach $name (@all_names) {
    print "The next name is $name\n.";
}

foreach (@all_names) {
    print "The next name is $_\n.";
}

print "The next name is $_\n" for @all_names;

@names = qw(Alice Bob Charlie);
print "$_ is a person.\n" for @names;
...
   # You can't buy a beer at age 19
   # You can't buy a beer at age 20
   # Congratulations! You can buy beer now, you're twenty-one!

Perl            English
--------------------------------------------
...
:                  else
warn qq{...}          warn that it doesn't exist
for @ARGV       for every single command line argument