Thanks. Now I'll make a few comments and corrections.   my @data = (); That assignment isn't necessary. Arrays start out empty!      s/\"//g; That backwhack isn't necessary. Quote marks are literal in any quoted string that uses some other delimiter.      push @data, [ $_ ]; That isn't equivalent and won't work for the OP's purpose.
You still need to split the string on commas.
You could do it this way:

     my @a = split /,/;
     push @data, \@a;
[download]

jdporter
...porque es dificil estar guapo y blanco.