(@curusers = ars_GetListUser($ctrl, 2)) || die $ars_errstr;

for($i = 0; $i < $#curusers ; $i+=2){
$key = $curusers[$i]; $value = $curusers[$i+1];
print "$i : $key : $value\n";}

for $i (0 .. $#curusers){
for $value ( keys %{$curusers[$i]})
{ print "$i:$value is $curusers[$i]{$value}\n"; }
}

============================================================
0 : HASH(0x1abf184) = HASH(0x256ba30)
0:userName is eprehn
0:licenseType is ARRAY(0x1ab51a8)
0:defaultNotifyMech is 0
0:connectTime is 1079451285
0:emailAddr is
0:currentLicenseType is ARRAY(0x1ab52e0)
0:lastAccess is 1079451886
0:licenseTag is ARRAY(0x1ab51c0)