open(LIST, "<$ARGV[0]");
@list = <LIST>;
close LIST;