1. 判斷某個元素是否在給定的陣列中

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

2. 判斷兩個陣列所有元素是否相同

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

3. 正則表示式匹配

~~可以完全代替=~進行匹配，而且比=~更強大

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