my ($in_fla) = grep/$input/i, @known;
[download]

That will not work correctly, as it will match any part of the known strings. For example, it would match "fo", "ar", "z", etc.