The loop is fine. Replace the print line with

    print "$key => $value\n";
[download]