sub count1 {
    local $_=shift;
    my %count;
    
    for my $pos (0..(length)-1) {
        pos=$pos;
        @count{ /(.{2,}).*\1/g } = ();
    }
    
    for my $k (keys %count) {
        $count{$k} =()= /$k/g;
    }

    \%count;
}