Оптимизация кода (медленно выполнение при болишх объемах файлов)

[perl6]

Приветствую, есть код

Код: (Perl)

#!/usr/bin/perl -w

open(IP,"<ip.log") or die "Openning file: " . $!;
@ip=<IP>;
chomp(@ip);
close(IP);

open(LP,"<login_pass.log") or die "Openning file: " . $!;
@lp=<LP>;
chomp(@lp);
close(LP);


for $lp(@lp)
{
    for $ip(@ip)
  {
     if ($lp =~ /$ip/) { push (@dat, $lp)}
  }    
}

open (F, ">> good.log");

print F join( "\n", @dat );

Что он делает, а он сравнивает в файле login_pass строку с ip, если находит соотв, то добавляет ее в массив и потом пишет весь массив в файл. Так вот, при размерах файла ip примерно в 5к строк, скрипт отрабатывает порядка 10 минут. Нельзя ли как-то ускорить его работу, какие будут идеи?

[RXL]

Еще бы N*M будет тормозить быстро тормозить с ростом объемов. Если все плохо и тормозит, то либо ты не то делаешь, либо не тем инструментом.
Для начала рассмотри свойства входных данных. Например, можно ли поменять метод сравнения с регулярки на равенство всей строки или хотя бы отдельного слова. Это позволит построить хеш по ip и искать в нем с постоянной сложностью.
Если решения не найдется, всегда можно переписать на более низкоуровневом языке, например С или С++, прибавка x5 гарантирована. Хотя, в случае регулярки может и не быть. Подумай еще раз, точно ли она тут нужна. Простые вхождения проверять регуляркой излишне.

[Sla]

5к - это не объем

Включи время одной проверки..
на локалке поиск по файлам (около 100к)  10 мин  очень много, а здесь поиск в памяти..
что-то здесь не так.

[perl6]

Ясно, всем спасибо, подумаем еще. Писалось то на скорую руку, долго сидеть некогда.