my @data = ();

##</code><code>##

     s/\"//g;

##</code><code>##

     push @data, [ $_ ];

##</code><code>##

     my @a = split /,/;
     push @data, \@a;