my $thing='dog'; 
print "many ${thing}s\n";