Select Code to Download

use strict ;
use warnings ;
...
) ;

print Dumper(%h) ;

$VAR1 = 'b';
$VAR2 = [
...
        ];
$VAR3 = 'a';
$VAR4 = 1;

use strict ;
use warnings ;
...
    b => [ 1, 2, 3],
) ;
print Dumper(\%h) ; # Note the additional \

$VAR1 = {
          'b' => [
...
                 ],
          'a' => 1
        };