Select Code to Download

my $foo = [1,2,3];

# assign (1,2,3) to @bar
...

# assign ([1],[2],[3]) to @baz
my @baz = map { [$_] } @$foo;