my @field = (0,0,0,0,0,0,'PM',0,'CAVENDI');
my $cond = q(($field[6] eq 'PM' && $field[8] eq 'CAVENDI'));

my $ret;
eval "\$ret = $cond";
warn $@ if $@;

print $ret;