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