perl evaluateit.pl --list 'strA,==,100' --list 'strB,>,1000'


#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long;

my %opts = ();
my $getoptsresult = GetOptions(\%opts,"list=s@");

my %h = (strA=>100,strB=>999);
foreach(@{$opts{list}}){
  my @args = split /\,/;
  my $code = join(' ',$h{$args[0]},$args[1],$args[2]);
  my $answer = eval($code);
  print "answer: $answer\n";
  #do something with answer
}