Select Code to Download

use warnings;
use strict;
...
}

print Dumper \%layout;

$VAR1 = {
          'Foo' => [
...
                    'two'
                  ]
        };

my $doc = PPI::Document->new($file);
my $stmts = $doc->find('PPI::Statement');
...
        print "\t$_\n";
    }
}

Fee:
    one
...
Foo:
    three
    four