Select Code to Download

my $foo;

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

my @foo;

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

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

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