use Scalar::Util qw(dualvar); my $true_zero = dualvar(0,"my true zero is better than yours");