sub FIRSTKEY {
   ...
   $iterator = 0 unless defined $iterator;