Считайте файл в массив с помощью Perl

Я сейчас читаю файл и сохраняю данные в массиве с именем @lines . Затем Я просматриваю этот массив, используя цикл for , и внутри цикла я сопоставляю определенные значения:

$find = "fever";

if ($_ =~ /$find/) {
    print "$_\n";
    $number++;
    #@lines =
    #print ("there are : " . $number);
}

В настоящий момент я использую скаляр $ find со значением of fever вместо выполнения повторяющихся операторов для каждого фильтра.

Могу ли я передать массив для сравнения вместо скалярного ключевого слова?