>perl -wMstrict -le
"my $str1 = 'a,b,c';
 my $str2 = '1,2,3';
 ;;
 my %hash;
 @hash{ split q{,}, $str1 } = split q{,}, $str2;
 ;;
 use Data::Dump;
 dd \%hash;
"
{ a => 1, b => 2, c => 3 }