您有拼写错误：

open(my $FH ,'>',"$csv") or die "oops!";

使用严格和警告，并且在编译期间出现警告。

Use strict and warnings and you got warnings during compile time.

use strict;
use warnings;

您有拼写错误：

open(my $FH ,'>',$csv) or die "oops!";

while (my$line = <$FH>){

非常感谢，