Help for this page

Select Code to Download

Select or download this

my %hUsers;

...
foreach $user_name (sort keys %$hUsers) {
  print $user_name, ' ', scalar keys $hUsers{$user_name}, "\n";
}