%ResultStatusCodes = (
	1 => "registered",
	2 => "unregistered",
	3 => "waiting"
)

##</code><code>##

$resultStatus[1] = 1;

##</code><code>##

%ResultsByCode = (
	registered		=>	@ of registered ids
	unregistered	=>	@ of unregistered ids
	waiting			=>	@ of waiting ids
)

##</code><code>##

@ResultsByCode = (
	1		=	@ of registered ids
	2	=	@ of unregistered ids
	3	=	@ of waiting ids
)

##</code><code>##

	@resultsByCode = ();
	for ($i=1;$i<=5;$i++){ $resultsByCode[$i] = ();}
	for ($i=1;$i<=5;$i++){
		push $resultsByCode[$resultStatus{$i}], $i;
	}

##</code><code>##

	%resultsByCode = ();
	for ($i=1;$i<=5;$i++){
		push $resultsByCode{$resultStatus{$i}}, $i;
	}