foreach (keys %ids) {
   print "$_ $ids{$_} id\'s\n";
}