my $str='1,zxc,2,asd,3,qwe';
my %hash=split /\,/, $str;

##</code><code>##

foreach my $key (sort keys %hash) {
  #do something...
};