Perl产生不重复随机数

参考了此文：Perl 产生不重复的随机数

#!/usr/bin/perl
# 
use strict;
use warnings;

my %sns;
for (1 .. 10) {
    my $range = 100;
    my $no;
    do {
       $no = int rand($range);
    } while (exists $sns{$no});
    $sns{$no} = 1;
}

print join(" ", keys %sns), "\n";