in reply to Re^4: random number generation.
in thread random number generation.

Method 1 is fine. 
my @array = (1..15);

for (1..3) {
    my @shufflednumbers = (shuffle(@array))[0..4];
    print "@shufflednumbers\n";
}

[download]

In Section Seekers of Perl Wisdom