if(join(',', @car) eq join(',', @cond)) {
    print "FOUND\n";
  }
  else {
    print "NOT FOUND\n";
  }

##</code><code>##

if ($aa=~/^peace$/)

##</code><code>##

if ($aa eq 'peace')