open in, shift @ARGV;
for(<in>){

##</code><code>##

tie @in, 'Tie::File', shift @ARGV;
for(@in)

##</code><code>##

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