$hope{'feathers'} = "sings the tune without the words";
$soul = $perches{"$hope{'feathers'}"} = "never stops at all\n";
print "Hope $hope{'feathers'} and $soul";