Perl math func