The problem is, you have to include the option modifier 'i' to ignore case. Because in your gen.txt file 'AT' is present and in search file 'at' is present.

@result = grep/\Q$a\E/i, @sea;
[download]

Now it will work fine.