$word_list{$_}++ for @words;

@sorted = sort keys %word_list;
[download]

@word_list{@words}=1;
@sorted = sort keys %word_list;
[download]

update:
Oh come on, that shift+9 shift+0 ... 3 extra keys man ... *me*shakes*head* ... whatever happened to lazyness ???

:D

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.

Hmmm... I prefer to do     @word_list{@words} = (); since it doesn't make much sense (though it does work) to assign a scalar to an array slice.

jdporter
...porque es dificil estar guapo y blanco.

Thanks for all your help guys! I was wondering how I would be able to get word123 into my @word but not 456. So that word123 would be a word, but 456 isn't a word. Right now I have

my @words = map {s/[.,!\W\?]\B//g; split; } <FILE>;
[download]

With this i'm getting it to keep word123 but if its 39 it would remove the 3 but not the 9? Also if I add an i (case insensitive) behind the /g would that give me There = there?

It doesn't seem to me that you want to be altering any of the words; you're writing a pure filter. (Right?)

So I'd probably do this:

    my @words = 
        grep { /^[a-z]/i }
        map { split }
        <FILE>;
[download]

The map produces a list of all the "words" in the file; the grep filters out any that don't begin with a letter. If you need to remove punctuation and stuff like that (if you said you did, I missed that), then you could modify the split accordingly:         map { split /\W+/ } hth,

jdporter
...porque es dificil estar guapo y blanco.