my $orun=join('',@iarray_run); 
	my $opend=join('',@iarray_pend);