my $x;
...
$x = ...;