Select Code to Download

use warnings;
use strict;
...

print "\nmapped:\n";
print map {"$_ => $hash{$_}\n"} keys %hash;

Dumpered:
$VAR1 = {
...
mapped:
that => two
this => one