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

##</code><code>##

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

##</code><code>##

open my $in, '<', shift @ARGV; 
while (my $line = <$in>){ 

##</code><code>##

my @temp_list=<in>;
for(@temp_list){