Store the connection info as array refs, and then dereference it when connecting:

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 ...
[download]