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