for my $i ( 0 .. $slen - $pl ) {
     my $sstr = substr( $str, $i, $pl ); 
     $nu_hash{ $sstr }++; 
  }