sub cubed { return $_[0]**3; }
$a=3 ;
25+$a**2 + cubed($a)