$x = 0;
$x = "0";
$x = 0.0;
$x = Scalar::Util::dualvar 0, 1;

##</code><code>##

$x = 1;
$x = "foo";
$x = "00";
$x = "0 ";
$x = undef;
$x = "";
$x = Scalar::Util::dualvar 1, 0;
$x = "0.0";