@array = map { EXPR } LIST;

##</code><code>##

@array = ();
foreach (LIST) {
   push @array, EXPR;
}

##</code><code>##

open (FH, "foo.txt");
my @words = map { split } <FH>;
close FH;
print "@words\n";

##</code><code>##

open (FH, "foo.txt");
my @words;
foreach (<FH>) {
   push @words, split;
}
close FH;
print "@words\n";

##</code><code>##

open (FH, "foo.txt");
my @words;
while (<FH>) {
   push @words, split;
}
close FH;
print "@words\n";