while (<$in>) {
    my @tmp = split ',';             # perldoc -f split
    my ($number, $name) = @tmp[0,2]; # perldata, Stichwort 'slice'
    next if ! defined $name;
    push @{$dump_packs{$name}}, $number ; # key: name, value: number array (!)
}