if ($calc < 0 ) { print "$some_variable\n"; }