#!/usr/bin/perl

use strict;
use warnings;

my @car  = ('a', 'b,c');
my @cond = ('a', 'b', 'c');


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