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