String Perl

#!C:\Perl\Bin\
$something = "comfort";
print "This chair is very ${something}able\n";