open my $DICT, "<", "final.txt" or die "cannot open final.txt$!";
print for grep { not /h.*h/i } grep { not /s.*s/i }  grep /s.*h/i, <$DICT>;