my $sub3 = sub {
    shuffle (@randomarray);
};