$varname = 'poke';
print "${varname}mon\n";