Select Code to Download

N_scalars("foo",5);
 --yields--
...
$foo_3 = '';
$foo_4 = '';
$foo_5 = '';

my @foo;

open FH, 'foo.txt' or die "$!: can't open foo.txt\n";
my @file = <FH>;
close FH;

foreach my $line (@file) {
   print $line;
}

foreach (@file) {
    print $_;
}

print foreach @file;

print @file;

for my $i (0..$#file) {
   print $file[$i];
}

for (0..$#file) {
    print $file[$_];
}

print for @file;

print @file;

arb_scalars("alfa","bravo","charlie");
  --yields--
$alpha = '';
$bravo = '';
$charlie = '';

my %word = (
   alpha   => 'a',
   bravo   => 'b',
   charlie => 'c',
);

print $word{'charlie'};