C:\temp>perl -E "my @l=qw/foo bar baz/; my ($x)=@l; my $y=@l; say for $x, $y"
foo
3