my $ans=<STDIN>;