#!perl5.10
use strict;
use warnings;

my %hash;
$hash{foo} = split /\,/,'1,2,3';