my $glob = 'FOO';
if (defined do {
    no strict 'vars';
    *$glob{IO}}) {
    # ...
}

##</code><code>##

if (defined *FOO{IO}) {
    # ...
}

##</code><code>##

if (*FOO{IO}) {
    # ...
}