foreach(keys %users) {
       my %user=$_;
       [...]
   }