my (@fw, @vrf, @vlan, @portchannel);
my %arr_hash = (fw=> \@fw, vrf=> \@vrf, vlan =>\@vlan, portchannel => \@portchannel);
  
  foreach (keys %arr_hash) {
	@{$arr_hash{$_}} = collectData($_, $CFG{$CFG{ uc $_}});
  }