sub itref {  \*STDOUT }
sub itglob { *STDOUT }
for my $it( itref(), itglob() ){
    print $it qq{$it\n};
}
__END__
GLOB(0x99b30c)
*main::STDOUT