foreach $ralias (@{$refarrayptr})
{
	$raliashash = $ralias;
	
	$reference = $ref{$raliashash};

	$ralias = ${$reference}[0];
}