...
   push @sheet2, [ split(/,/, $line ) ];
   ...