use Devel::Peek; qw( Dump );
use Scalar::Util qw( dualvar );

my $foo = dualvar 10, "Hello";

Dump($foo);

print $foo, "\n";
print $foo + 5, "\n";