Select Code to Download

C:\Documents and Settings\my\Desktop>perl test.pl
0  ==== zero
...
3  ==== four
4  ==== four

#!/usr/bin/perl

...
foreach (sort keys %hash) {
   print "$_  ==== $hash{$_}\n";
   }