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