#!/usr/bin/perl
use strict;
use warnings;

my $row = {
a => 1,
b => 2,
c => 3,
d => 4
};

my $evalStatement="a>0";

sub evaluateRow { 
   my ($row) = @_;

## loop through each column a,b,c,d and if column exists in the evaluation statement
## replace column with value

  if (eval(1>0)) {
     return 1 ## "ACCEPT row"
  } 
  
  return 0 ## "REMOVE row"
}