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

for my $arrayRef (@everything) {
    theSub(@$arrayRef);
}