$VAR1 = {
          'cpy04' => bless( {
                              'filter' => '04',
                              'fh' => \*Product::Datafile::DATA
                            }, 'Cobol::Copybook' ),
          'cpy01' => bless( {
                              'filter' => '01',
                              'fh' => $VAR1->{'cpy04'}{'fh'}
                            }, 'Cobol::Copybook' ),
          'cpy00' => bless( {
                              'filter' => '00',
                              'fh' => $VAR1->{'cpy04'}{'fh'}
                            }, 'Cobol::Copybook' )
        };