use strict;
use warnings;

my %data;

while ( <DATA> ) {
  my ( $id, @fields ) = split /\s*,\s*/, $_, -1;
  for my $i ( 0..$#fields ) {
    $data{ $id }[ $i ] = $fields[ $i ] if length $fields[ $i ];
  }
}
__END__