open (FH, $ARGV[0]) or die ("could not open file");
my @data = <FH>;