...
        my $row;
        @$row = split(/,/, $line );
        push @$sheet2 , $row;
        ...