my $x=9;
say(-5);
say(-$x);

__END__
-5
-9