@result = grep/\Q$a\E/, @sea;