my $x = ( f(...) )[-1];    # Last value
my $x = () = f(...);       # Count