sub lazy_init {
  tie $_[0], "MyGlobals", $_[1], \($_[0]);
}

# Then elsewhere
lazy_init(my $baz3, "LegacyRoutines::baz");
print $baz3, "\n";
print $baz3, "\n";