use constant PI => 3.14;
my $x = ...;
print PI * $x;