# untested
   $hash{ $_ }->close for keys %hash;