Select Code to Download

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 $_}});
  }