print ave_age( 43 ); sub ave_age { ($_[0] * $_[0] + $_[0]) / 2 / $_[0] }