Select Code to Download

#!/usr/bin/perl
use warnings;
...
    print "$_ => $hash{$_}\n";
}
print "\n";

C:\Code>perl array-hash-order.pl
A => 4
B => 2
C => 3