my $x = 'sent';
print "\$.${x}ence";

# output: $.sentence