my $key='';
while (($key=nextkey(\%hash,$key)) ne '') {
  print $hash{$key},"\n";
}