use Scalar::Util qw/dualvar/; dualvar(0, '');