open(my $fh,"<$file") or die $!;