my %hash = map { chomp; split /,/ } @array;