#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

sub evaluate_row {
    my ($rules, $row) = @_;
    for my $column (keys %$row) {
        if (exists $rules->{$column}) {
            return 0 unless $rules->{$column}($row->{$column});
        }
    }
    return 1
}

sub is_greater_to_0 { $_[0] > 0 }
sub is_even { 0 == $_[0] % 2 }

my $rules = {a => \&is_greater_to_0,
             b => \&is_even};

my @rows = ({a => 1, b => 2},
            {a => 0, b => 2},
            {a => 1, b => 3},
            {a => 0, b => 3});

for my $row (@rows) {
    say evaluate_row($rules, $row) ? 'ACCEPTED' : 'REJECTED';
}