my @arr_methods = ([ \@fw, \&NT::FW, 'FW'], [\@vrf, \&NT::VRF, 'VRF'], [\@vlan, \&NT::VLAN, 'VLAN'], [ \@portchannel, \&NT::PORTCHANNEL, 'PORTCHANNEL'] );
    foreach (@arr_methods) {
        @{$_->[0]} = ($_->[1])->extract( &slurpFile($CFG{$CFG{$_->[2]}} ), %CFG);
    }