Select Code to Download

$hashref->{"key1"} = "value1", {"key2"} = "value2";

use strict;
use warnings;
...

print %$hashref,"\n";