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

#the possible returned   arrays from a sub

     @car=qw(peace child free love enjoy);  #1
#or  @car=qw(war child -- love enjoy);    #2
#or  @car=qw(peace song freedom -- xx);  #3
##############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!"}