Select Code to Download

#!/user/bin/env perl

...
my $hash_ref = to_hash({},@array); 

print Dumper($hash_ref);

$VAR1 = {
          'a' => {
...
                          }
                 }
        };