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