my $value = 3 ;
my @array = (1, 2, 3, 4, 5) ;

sub test{
for(@array){
if ($value == $_){
print "$value was found!\n" ;
return ;
        }
    }
print "$value was not found!\n" ;
}

sub test{
if(@array ~~ $value){
print "$value was found!\n" ;
    }
else{
print "$value was not found!\n" ;
    }
}

sub test{
for my $i (0 .. $#array1){
        if($array1[$i] != $array2[$i]){
return 0 ;
        }
    }
return 1 ;
}

sub test{
if(@array1 ~~ @array2){
return 1 ;
    }
else{
return 0 ;
    }
}

my @array = ("abcd", "xyz", "123", 456) ;
print "found match!\n" if @array ~~ /xyz/ ;

print "number equal\n" if 1 ~~ 2 ;
print "string equal\n" if 'abc' ~~ 'abc' ;