foreach $aa (@ARGV)
{
 if ($aa=~/^peace$/)   {$cond[0]='peace'; push(@numeri,0 )}
 elsif ($aa=~/^child$/){$cond[1]='child'; push(@numeri,1 )}
 elsif ($aa=~/^free$/) {$cond[2]='free';  push(@numeri, 2)}
 elsif ($aa=~/^love$/) {$cond[3]='love';  push(@numeri, 3)}
 elsif ($aa=~/^enjoy$/) {$cond[4]='enjoy'; push(@numeri, 4)}
 else {print "\n\n$aa wrong argoument!!! I proceed with @cond\n\n"}
}

#the possible returned   array from a sub

@car=qw(peace child free love enjoy);
print "\n\ncar=@car\ncond=@cond\nnums=@numeri\n\n\n";

##############here suggestion please###################
$bol=1;
foreach $num(@numeri)
{
    last if  ($bol==undef);
   if ($car[$num]eq$cond[$num]){$bol=1}else{$bol=undef}

}

if (defined $bol){print"boleano=$bol FOUND!"}
else{print "NOT found!"}