use strict;
use warnings;

my $cond=1;
my $i=1 for $cond;
for ($cond) {
	my $j=1;
}