my @everything = (\@fw, \@vlan, \@vrf, \@more);

foreach (@everything) {
    theSub(@$_);
}