open(FILE1, $ARGV[0]);
@lines = <FILE1>;