in reply to Try your luck at Superenalotto!
perl -M"List::Util 'shuffle'" -e "my @n=shuffle(1..90); print join(',' +, @n[$_*6..$_*6+5]), qq(\n) for (0..14)" [download]