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