arrays - Perl、最後の文字が括弧かどうかを確認してください

Question

配列エントリの最後の文字がブラケットかどうかを確認したい。

私のコードは次のようになります。

        my $lastchar = substr $blub[8],-1,1;
        print "$lastchar..............................\n";
        if ($lastchar == "\(" )
        {
            splice @blub, 8, 2, join('', @blub[8,9]);
        }

しかし、このコードは機能しません...開いた "(" または閉じたブラケット ")" の場合、すべてのブラケットに一致します...

前もって感謝します。よろしく、ジョン。