sub divide( $x, $y ) { $x / $y } sub half assuming divide( $y=2 )