package Zelda;
our $type = "prince";

package Mario;
our $type = "hero";

package Kupa;
our $type = "villan";

package main;

foreach my $pkg (qw/Zelda Mario Kupa/) {
    print ${$pkg.'::type'}, "\n";
}

__END__