my $foo = undef;
my $bar = Foo::create_bar (\$foo);