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