Select Code to Download

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