新手真心求教，求高人指点

在公司用perl处理Csv文件，需要写入数据库。代码如下：
open(OUTFILE,"3.Csv" || die ("open OUTFILE failed";
my $title = <OUTFILE>;
my @line = <OUTFILE>;       
foreach my $row (@line){
                $row =~ s/[\s]+$//;
                my @array;
                while($row =~ m/(?:^|,)(?:"((?:[^"]|""*)"|([^",]*))/gx){
                                        if(defined $1){
                                                         $field = $1;       
                                        }else{
                                                        $field = $2;
                                                        $field =~ s/""/"/g;
                                        }
                                        $field = $dbh->quote($field);
                                        $field =~ s/(\&Acirc*//g;
                                        push(@array,"$field";
                }
}
会产生“Segmentation fault”错误，文件有100M。因为文件大？还是因为中间有空行？求解惑。

自己先顶下