Select Code to Download

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

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