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 )
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.
"Well done is better than well said." - Benjamin Franklin