# File Set1.pm
package Set1;
1;
__DATA__
foo1
foo2
foo3

# File Set2.pm
package Set2;
1;
__DATA__
bar1
bar2
bar3

# main script
#!/usr/bin/perl -w
use strict;

use Set1;
use Set2;

print "Set 1:\n";
while (<Set1::DATA>) { print }
print "Set 2:\n";
while (<Set2::DATA>) { print }