open(FILE,"<", $ARGV[0]) or die "Open failed for $ARGV[0]: $!";           
	my @lines=<FILE>;