Just a quick comment on your while loop. It works, but if all you want to do is step through the elements of a hash, the foreach loop is better suited (and more efficient) for the task:

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

Note you don't need the arrays @keys and @values anymore.