my %picked;
for(1 .. 1E5) {
    $picked{pick(@matrix)}++;
}
use Data::Dumper;
print Dumper \%picked;