for my $key (sort keys %{ +{%hash = split /,/, $str} }) {
  ...
}