I have a sample Perl routine into which I want to import a module with data such that I can access the data in the main routine.

use strict;
use warnings;

use DBI;


require db_data;

print "length = " . $#LoH . "\n";


foreach (0..$#LoH) {
    &connect($_,    $LoH[$_]{database},
                    $LoH[$_]{hostname},
                    $LoH[$_]{servicename},
                    $LoH[$_]{port},
                    $LoH[$_]{username},
                    $LoH[$_]{password},
    );
}

 sub connect {
    my ($count, $database, $hostname, $servicename, $port, $username, 
+$password) = @_;


    print "\n\n$count -> $database\n";
    print "\t$hostname\n";
    print "\t$servicename\n";
    print "\t$port\n";
    print "\t$username\n";
    print "\t$password\n";

    my $dbh = DBI->connect(
        "dbi:Oracle:host=$hostname;
                    service_name=$servicename;
                    port=$port",
                    "$username",
                    "$password"
                    ) || die "Database connection not made";

    print "connected to $database\n";

    $dbh->disconnect();
 }

###########################################################
# db_data.pm

use strict;
use warnings;

package db_data;

my @LoH = (
            {
            database        => 'Pxxxxx',
            hostname        => 'wpprd0.com',
            servicename     => 'pqxxxx',
            port            => '9010',
            username        => 'mmmmmm'',
            password        => 'pl',
            },
        ) ;
1;
[download]

the data is contained in db_data.pm...there are two distinct files