关于perl open函数打开文件的有关问题

open my $fh, '+<', 'file' or die $!;
my @src = <$fh>;
my @modify;
seek($fh,0,0);
for my $line (@src)
{
    chomp($line);
    if ($line =~ /target/)
    {
        $line .= "append\n";
        push @modify, $line;
    }
}
print $fh @modify;