my ($strA, $strB) = ("$str1,", "$str2,");
my %hash = map { map substr($_, 0, -1),
                 map substr($_, 0, 1 + index($_, ','), q()),
                 $strA, $strB;
               } 1 .. $strA =~ tr/,//;

print Dumper \%hash;