my $val = -9.99; print abs $val __OUTPUT__ 9.99