Select Code to Download

sub foo { 5, 17 }       # sub returning 2 values
my $n1 = () = foo;      # $n1 == 2
my $n2 = scalar foo;    # $n2 == 17