Select Code to Download

my %temphash;
while (($key,\@val) = each %myhash) {
...
while (($key,$val) = each %temphash) {
   $myhash{$val} = split $key;
}