use strict;
use warnings;
use Data::Dumper;


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
			        print Dumper(\@num_weights);
				push @hold_generations, @num_weights; #store new array
				print Dumper(\@hold_generations);
				splice @num_weights, 1, 1; #undo adding item
				print Dumper(\@num_weights);
				
				 
			}