Thank you, GrandFather.

So, in other words, are you saying that this should work?:

my @arr_methods = ([ \@fw, 'NT::FW', 'FW'], [\@vrf, 'NT::VRF', 'VRF'],
+ [\@vlan
+, 'NT::VLAN', 'VLAN'], [ \@portchannel, 'NT::PORTCHANNEL', 'PORTCHANN
+EL'] );

    foreach (@arr_methods) {
        @{$_->[0]} = $_->[1]->extract( &slurpFile($CFG{$CFG{$_->[2]}} 
+), %CFG)
+;
    }
[download]