Select Code to Download

my %hash=(
        "outer"=>
        "cool"=>1,
        "Kewl"=> 2,"odd"
);

my %hash=(
  "outer", "cool", 1, "Kewl", 2,"odd"
);

use Data::Dumper;
sub test {
...
            "Kewl"=>2,"odd"
        )
);

$VAR1 = [
          'outer',
...
          2,
          'odd'
        ];