$_ = '1,2,3,4,5:one,two,three,four,five';

@_ = split':',$_;

@hash{split',',$_[0]}=split',',$_[1];

print $hash{1};