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