#!/usr/local/bin/perl
use strict;
use warnings;

foreach (1..3) {
    if($_ < 2) {
        my $x = 1;
        print "$_ < 2, \$x = $x\n";
    } else {
        print "$_ >= 2, \$x = $x\n";
    }
}
__END__
Global symbol "$x" requires explicit package name at ./test.pl line 10.
Execution of ./test.pl aborted due to compilation errors.