my @i;

map {
  my $n = @i[()];
  print "n=$n\n";
  "z";
} 1 .. 4;

##</code><code>##

$ perl test
n=4
n=z
n=z
n=z

##</code><code>##

my @i;

print map {
  my $n = @i[()];
  print "n=$n\n";
  "z";
} 1 .. 4;

##</code><code>##

$ perl test
n=4
n=4
n=4
n=4
zzzz