Select Code to Download

Select or download this

my @a = (shuffle 1 .. $N)[ 0 .. $E ];
my @b = (shuffle 1 .. $N)[ 0 .. $E ];
my @c = (shuffle 1 .. $N)[ 0 .. $E ];
my @d = (shuffle 1 .. $N)[ 0 .. $E ];

Select or download this

my %comp;
$comp{ $_ }{a} = 'a' for @a;
$comp{ $_ }{b} = 'b' for @b;
$comp{ $_ }{c} = 'c' for @c;
$comp{ $_ }{d} = 'd' for @d;

Select or download this

print "     : a b c d\n--------------";

Select or download this

printf "%4s : %s\n", $_, 
    join ' ', map{ $_||'-' } @{ $comp{ $_ } }{ 'a'..'d' }
    for sort{$a<=>$b} keys %comp;

Select or download this
```
for sort{$a<=>$b} keys %comp;
```
Select or download this
```
@{ $comp{ $_ } }{ 'a'..'d' }
```
Select or download this
```
map{ $_||'-' }
```
Select or download this
```
join ' ',
```
Select or download this
```
printf "%4s : %s\n", $_,
```
Select or download this
```
   6 : a b - d
```