open(TEST, $filename) || die "Can't open file\n";
while (<TEST>)
{
@a[$i] = $_;
chomp @a[$i];
$i++;
}
close (TEST);

чонить в этом роде

или так (но скорее всего это уже для небольших файлов, потести в общем):

open(TEST, $filename) || die "Can't open file\n";
@Mass = <TEST>;
close (TEST);