tie @in, 'Tie::File', shift @ARGV;
while(1){
$_=$in[$i++];