open(FILE1, $ARGV[0]) || die "Error: $!\n";
@lines = <FILE1>;

##</code><code>##

while ($line=<FILE1>){