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