#!/usr/local/bin/perl
for ((1,2)) {
} continue {

print 1; }