use 5.010;
use Scalar::Util qw( dualvar );

my $x = dualvar(7, "Seven");
say "$x";
say $x+0;