open FILE1, $ARGV[0] or die "Couldn't open file: $!";
my @lines1 = <FILE1>;
close(FILE1);