use strict;
use warnings;
use Scalar::Util qw(dualvar);

my $x =  dualvar(1, "");
my $y = 'hello';

print $x . $y; # outputs hello