$Line{$word} =~ m/(\d*?)$/;
        if ( $1 == $count ) {
                next;
            } else {
                $Line{$word} .= ", $count";