my $baz3;
tie($baz3, "MyGlobals", "LegacyRoutines::baz", \$baz3); 

print $baz3, "\n";
print $baz3, "\n";