my @i;

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