my @num_weights = (36,264,188);
my @leftovers = (1,2,3,4);
my @hold_generations;
 my $i = 0;
        
        for(my $p = 0; $p < 1;$p++) #Go through all leftovers
            {
                my $pick = $leftovers[$p];
                unshift @num_weights, $pick; #add item
                say Dumper(@num_weights);
            }