на самом деле разбивать ничего не нужно, так же не следует читать весь файл в массив ибо размер его в оперативной памяти будет слишком большим, я когда пишу всякие бруты, наполняю массив паролями, затем потоки дергают из него пароли, когда массив опустеет, он снова заполняется паролями и потоки снова запускаются

пример-
#!/usr/bin/perl

use threads;
use threads::shared;
my @pass : shared; #расшариваем массив

$thr = 10;

open (pass, "<$dic");

Next:
@pass = pass(); #вызываем функцию наполнения массива пасами

#создаем потоки
for(0..$thr)
{
$trl[$_] = threads->create(\&Brut);
}
for(0..$thr)
{
$trl[$_]->join; #ждем пока они завершатся
}

sub Brut
{
while (@pass)
{
$pass = shift @pass;
# тут собственно сам брут #
}
}

goto Next;

#функция заполнения массива пасвордами фром the файлек

sub pass
{
my (@mas);
while (<pass>){
push @mas, $_;
last if (@mas > 300);
}
chomp @mas;
return @mas;
}