use strict;
    use warnings;

    sub foo {
        our $bar;
        $bar = "Hi";
        return *bar;
    }

    my $foo = foo();

    print $$foo, "\n";

    __OUTPUT__

    Hi