my %hash_list = sort(split (/,/, $names));

use Data::Dumper; print Dumper(\%hash_list);  # DEBUG