my @words; # Defined elsewhere
my %uniq;
++$uniq{$_} for @words;
for my $word (@words) {
    if (exists $uniq{$word}) {
        print "Word: $word\tCount: $uniq{$word}\n";
        delete $uniq{$word};
    }
}