Select Code to Download

my $a = { bill => { '5/27/96' => { 'a.dat' => 1, 'b.txt' => 2, 'c.lsp'
+ => 3 } \
},
...
            'file' => 'a.dat'
          }

sub this {
  my (undef, $href, $field, $depth, $flat_rec) = @_;
...
}