use Scalar::Util 'dualvar';
my $p1 = dualvar 0, "foo";   # True
my $p2 = dualvar 1, "";      # False