sub regex {
        my $cnt=0;
        for (@words) {
                ++$cnt if /^abcb$/i;
        }
        return $cnt;
}