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

foreach (@chains) {
    for my $rule (@rules) {
        print $rule if ( $_ eq $rule );
    }
}