my $filename = <>;
	chomp $filename;
	open(FILE,"<", $filename) or die "Open failed for $filename: $!";           
	my @lines=<FILE>;