for (1..3) {
    my $x = "foo\n" if $_  > 9999;
    print $x;
    $x = "bar\n";
}