for (1..3) {
    my $var = '' if 0;
    print STDERR "$var\n";
    $var = 555;
}