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

##</code><code>##

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

##</code><code>##

use Data::Dumper;
sub test {
    print Dumper \@_;
}

test(
        "outer"=>(
            "cool"=>1,
            "Kewl"=>2,"odd"
        )
);

##</code><code>##

$VAR1 = [
          'outer',
          'cool',
          1,
          'Kewl',
          2,
          'odd'
        ];