for (0..2) {
  foreach my $x (0..1, ()) { print +($x .= " wassap? ") . "\n"; }
}

##</code><code>##

0 wassap?
1 wassap?
0 wassap?  wassap?
1 wassap?  wassap?
0 wassap?  wassap?  wassap?
1 wassap?  wassap?  wassap?

##</code><code>##

print map { s/$/\n/;$_ } (0..1);

##</code><code>##

print map { s/$/\n/;$_ } (0,1);

##</code><code>##

for (0..1) {
    print map { s/$/!\n/;$_ } (0..1);
}