my $erg = PI / 42 + 13 * $x * 4711;