Select Code to Download

perl -e '@n = (1..90) ; my @colonne ; while (@n) { my @colonna ; for (
+1..6) { push @colonna,splice(@n,rand($#n+1),1) } ; push @colonne,\@co
+lonna } ; foreach my $c (@colonne) { print qq(@$c\n) }'