You can interpolate all into the string, which is easier to read:

```perl
print $fh "$k = $ccm_t->{$k}\n";
```