deelinux,

Take a closer look at how his code works. It keeps generating numbers until it has 10 unique numbers, then prints out a list of those 10 unique numbers...

No, his code prints 10 numbers. Where do you see that he saves anything?

His loop handling is definitely non-Perl. He could just have done:

    for ( 1..10 )
[download]

For such a trivial problem, if he had one previous response, I wouldn't have commented at all. When I posted, I was the 3rd comment, so I added the 'another way of doing' phrase.

Regards...Ed