Indirect object:
print { $rec–>{HANDLE} } "a string\n";

Regular object:
use IO::Handle;
$rec–>{HANDLE}–>print("a string\n");