open(FH,"<$ans") or die $!;