>> foreach $line (@loleg) { $lolarr[$i] = $line; $i++;}

можно поинтересоваться, в чем заключается глубинный смысл этой строки ? +)