Welcome cmr72,

Have you looked at the 'rand' function:

perl -E 'say int(rand(100);'
[download]

Works much better than your random number generator.

Before I could answer you, the above posts are better than the one I was going to suggest.

Good Luck!