foreach my $user (keys %users) {
   print $user,'=', $users{$user},"\n";
}