my $foo;

##</code><code>##

foreach ( $foo ) {
	print "$_\n";
}

##</code><code>##

my @foo;

##</code><code>##

foreach ( @foo ) {
  print "array[x] = $_\n";
}

##</code><code>##

my @array
$array[0]       =       "";

##</code><code>##

#!/path/to/your/perl -w
use strict;