Select Code to Download

use warnings;
use strict;

...
while (my ($k, $v) = each %hash){
    print "$k => $v\n";
}