Grep, чтобы найти элемент в массиве Perl

Каждый раз, когда я что-то ввожу, код всегда сообщает мне, что оно существует. Но я знаю некоторые входные данные отсутствуют. Что не так?

#!/usr/bin/perl

@array = <>;
print "Enter the word you what to match\n";
chomp($match = <STDIN>);

if (grep($match, @array)) {
    print "found it\n";
}