my $foo = @bar; my ($phoo) = @bar;