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

# assign (1,2,3) to @bar
my @bar = @$foo;

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