while($text=~/\b(\w+)\b(?=.*\b\1\b)/g){
    $words{$1} //= 1;  # initialize empty value to one
    $words{$1}++;
}