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