Select Code to Download

use strict;
use warnings;
...
sub get {
    return $hoh{'a'};
}

$HASH1 = {
           a1 => {
...
                 },
           c1 => 1
         };