my $str = "this,ok,that,cool,free,dom";
for my $key (sort keys (%hash = split /,/, $str)) {
  ...
}