package foo; print "@main::array"; 1;