use strict;

sub test {
    print $main::hash{foo} . "\n";
}