in reply to Printing an Hash

               printf "%s\n", join("\n",map { $_ . " " . $hash{$_} }
                            sort keys %hash);

[download]

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

In Section Seekers of Perl Wisdom