Help for this page
if(join(',', @car) eq join(',', @cond)) { print "FOUND\n"; ... else { print "NOT FOUND\n"; }
if ($aa=~/^peace$/)
if ($aa eq 'peace')