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

##</code><code>##

my @foo;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

foreach (@file) {
    print $_;
}

##</code><code>##

print foreach @file;

##</code><code>##

print @file;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

print for @file;

##</code><code>##

print @file;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

print $word{'charlie'};