Select Code to Download

use Data::Dumper;
print Dumper(\%randList);

foreach my $key (keys %randList) {
    push(@numList, $key);
}

@numList = keys %randList;