Select Code to Download

my %data;

...
}

say $data{$_} for shuffle keys %data;

#!/usr/bin/env perl
use strict;
...
3   1   0   0   0   1   0   0   0   1   0
4   0   1   1   1   1   0   0   0   0   1
5   0   0   0   0   0   0   0   1   0   0