Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
for my $foo (@$x) {
  print "Gar!\n";
}