for ($i=0; $i<=$#all_IDS; $i++)
{
	$current_ID = $all_IDS[$i];
	splice(@all_IDS,$i,1);

	print $current_ID,"\n######\n";
	print "@all_IDS\n";
	print "@@@@@@@@@@@@@@@@@@@@@@@@@@@@\n";
	push @all_IDS, $current_ID;
}