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