while($ideal_state > $current_best)
{	my $coun = 0;

	for(my $a = 0; $a < scalar @solution; $a++)
	{
    	for(my $b = 0; $b < scalar @leftovers; $b++)
    	{	
    		my $hold_previous = $solution[$a];
    		$solution[$a] = $leftovers[$b];
    		if($max_weight > totalweight(@solution))
    		{
    			if(totalscore(@solution)>=$current_best)
    			{
    				
    				$leftovers[$b] = $hold_previous;
    			}
    		}
    		else
    		{
    			$solution[$a] = $hold_previous;
    		}
    	}
    	#print "Main loop";
	}
	
}