use strict;
use warnings;
my %files;
open $files{"foo"}, '>', "xyz"   or die "open failed: $!";
print { $files{"foo"} } "done\n" or die "print failed: $!";
# close { $files{"foo"} };    # oops: 'Odd number of elements in anonymous hash'
close $files{"foo"};          # works ok