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