interestingly enough,

my $foo = @{[]} = split( /,/, $bar );
[download]

seems to work ( and this one's strict- and warnings-happy :-)

~Particle *accelerates*