#!C:\Perl\Bin\

$something = "comfort";
print "This chair is very ${something}able\n";