my %db_conn = (
   a_manager => [ 'DBI:Oracle:host=hostname1;sid=ABCDB01;port=1300','a_manager','a_manager' ],
...
);

...

my $dbh = DBI->connect(@$data_source) or die ...