Select Code to Download

use strict;
use warnings;
...
    print $key, " => ", $hash{$key}, "\n";
}

one => 3
two => 2