Select Code to Download

my @chains = qw(INPUT OUTPUT FORWARD);
my @rules = open_file($rules);
...
    }
}

my FILE>>
INPUT
...
my @chains = qw(INPUT OUTPUT FORWARD);

I Loop the array open then file and try to match first array item push
+ on to new array until then next array item match.