#!/usr/bin/perl

use strict;
use warnings;

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

my ($k, %hash, $i);
$i = 0;

my @keys = split /,/, $str1;
my @values = split /,/, $str2;

foreach $k (@keys){
	$hash{$k} = $values[$i++];
}

print %hash;