Perl Rand Function Example