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