my $x;
   $x = some epxression;