for $i (0 .. $#curusers) {
  print "$i: $value: $curusers[$i]{$value}";
}