Select Code to Download

$VAR1 = { 
          'one' => [
...
        };

    my %hash;
    for my $key (keys %tmp) {
...
            $key => @{$tmp{$key}}
        };  
    }