Another "take 5" everybody! (P6 in-joke :):

@a = shuffle 1 .. 50; 
print splice @a, 0, 5 for 1 .. 5;;
7 15 32 24 41
50 22 25 21 28
11 3 45 48 44
42 30 10 36 38
17 26 2 18 33

@a = shuffle 1 .. 50; 
print splice @a, 0, 5 for 1 .. 5;;
11 31 48 5 44
25 39 3 40 34
33 16 14 47 49
17 41 37 4 42
50 20 13 24 45

@a = shuffle 1 .. 50; 
print splice @a, 0, 5 for 1 .. 5;;
9 6 31 35 7
29 37 36 26 22
32 3 8 1 2
4 21 45 40 43
23 18 30 50 42
[download]