Select Code to Download

sub pick (\@) {
    my $array = shift;
...
my @results = ();
push @results, pick @array for 1..5;