use one qw (one two three five);
use two qw (one two four);

print join("\n", @one::EXPORT), "\n";

sub get_exports
{
    my $package = shift or die;
    my @list = (@{$package . "::EXPORT"},  @{$package . "::EXPORT_OK"});
    for my $name (@list) {
        my $symbol = $package . '::' . $name, " ", "\n";
        if (\&{$symbol} == \&{$name}) {
            print "$name is imported from $package (function)\n";
        }
    }
}

get_exports('one');
print "\n";
get_exports('two')
print"\n";

print join(' ', one, two, three, four), "\n";