Select Code to Download

use strict;

...
      "hash is:\n", map "$_ => $h{$_}\n", keys %h;
   print "--------\n";
}