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