Reinventing a square wheel

[Quantum Mechanic]

Wes Groleau <groleau@freeshell.org> wrote in message news:<zxudnVkX4tHvhtmiXTWJgA@gbronline.com>...

> @words = <STDIN>;
> $new_word = $words[rand(@words)];
> chomp ($new_word);
> print ($new_word);

What do you get with this:

@words = <STDIN>;
print @words;

and

ls | PickOne

???

Or better yet,

ls | perl -d PickOne

and see what's in @words after it is stuffed from <STDIN>.

-QM