in reply to Try your luck at Superenalotto!

Adjust quotes as appropriate if not on a PC.
perl -M"List::Util 'shuffle'" -e "my @n=shuffle(1..90); print join(',' +, @n[$_*6..$_*6+5]), qq(\n) for (0..14)"

The PerlMonk tr/// Advocate