Select Code to Download

use strict;
use warnings;
...
my $perl_structure = Load $stuff;

print Dumper \$perl_structure;

$VAR1 = \{
            'Baked Goods' => [
...
                          }
                        ]
          };

printit ($perl_structure);

...
  }
  print "\n";
}