use Devel::Peek;
use Scalar::Util qw/dualvar/;

my @x = ("0 ",dualvar(0,"0 "));
(10.2+$_).$_ for @x;
Dump $x[0];
Dump $x[1];