[HoustonTx.pm] TIMTOWTDI

[houston at mail.pm.org]

use strict;

my @Array1 = qw(TIMTOWTDI There is more than one way to do it);
print "$_\n" foreach(@Array1);
foreach(@Array1){ print ("$_\n"); }
foreach my $this (@Array1){ print ("$this\n"); }
for(@Array1){ print ("$_\n"); }
for my $this (@Array1){ print ("$this\n"); }
map { print "$_\n" }@Array1;
print map { "$_\n" }@Array1;



=====
-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GIT d s+:++ a C++ UL++ US+ P+++ L++ 
W+++ w PS PE t++ b+ G e r+++ z++++
------END GEEK CODE BLOCK------

__________________________________
Do you Yahoo!?
Free Pop-Up Blocker - Get it now
http://companion.yahoo.com/