while (<>) {
  chomp;
  my ($key, @values) = split /,/, $_;
  push @{$numbers{$key}}, [ @values ];
}