package pkg;
    sub BEGIN {
        *foo = \@foo;
    }