my $var = "Hi!";
print(map { "$var\n" } 1..2);