#!/usr/local/bin/perl
for (@[1,2]) {
} else {

print 1; }