my $x = frob( $bz ); print $x + $z; foobar( $x );