Select Code to Download

perl -wle 'use Data::Dumper; my @buckets; my $buckets = 4; @a = 1 .. 1
+4; push @buckets, [ grep defined, @a[ map { $_ * $buckets } 0 .. @a /
+ $buckets ] ] xor shift @a for 1 .. 1 + @a / $buckets; print Dumper( 
+@buckets )'

Useless use of logical xor in void context at -e line 1.
$VAR1 = [
...
          12
        ];