*{$fh} = \ { input_record_separator  => "foo" };
{
    local $/ = $$$fh->{input_record_separator};
    @ary     = <$fh>;
}