package X;

use vars qw(@modules);
@modules = qw(A B C);

1;

package U;
use X;
warn $_ for @X::modules;

1;