Re: looking for a perl way to build a hash

[hdb]

use strict;
use warnings;
use Data::Dumper;
use List::MoreUtils qw(mesh);

my $str1="a,b,c";
my $str2="1,2,3";

my %hash = mesh @{[ split/,/,$str1 ]}, @{[ split/,/,$str2 ]};

print Dumper \%hash;