Select Code to Download

Variable Scopes:
my only "local" not assigned outside the "loop" e.g.
...
while (){
$var1 = 0
}

perldoc perlintro
perldoc perltoc
perldoc perlfaq[1-x]
quote delimiter(s), \, $, and @,

#!/usr/bin/perl

...
foreach $elem (@words){
  print "$elem\n";
}

#!/usr/bin/perl -w
#We use warnings
...
 if ($mod == 1){ printf "$i is odd, modulus is $mod \n";
}
}

#!/usr/bin/perl

...
[id://563314]