Perl: New Formula

Fixes the silly mistake I made earlier.