s_gourav1091, Here is one way to do it.

use strict;

my @all  = qw(bin client server all then);
my @some = qw(bin client server); #user defined elements
my %h; my @c; my $flag;

@h{@some} = ( );

# Elements that exist in both arrays
exists($h{$_}) and push @c, $_ for @all;
if (scalar(@c) == 3)
{
    print "set flag";
    $flag = 1;
}
[download]

#!/usr/bin/perl
use strict;
use warnings;

my @must_have=qw(abc def ghi);
my @to_check = @must_have[0,1];     # only the first two elements 
my %lookup = map {$_, 1} @to_check; # lookup hash

my $flag = 1; 
for (@must_have) {
  next if $lookup{$_}; 
  $flag = 0
}

print "flag not set" if not $flag
[download]