...
my $x = db_login( ... ) || die( "Could not open ..." );
my $xx = db_login( ... ) || die( "Could not open ..." );
my $xxx = db_login( ... ) || die( "Could not open ..." );
my $xxxx = db_login( ... ) || die( "Could not open ..." );
my %j = <data from DB>
my %jj = <data from DB>;
my %jjjj = <data from DB>;
my $pid1 = &executeChild( ....... );
my $pid2 = &executeChild( ....... );
my $pid3 = &executeChild( ....... );
my $pid4 = &executeChild( ....... );
my $pid5 = &executeChild( ....... );
my $pid6 = &executeChild( ....... );
...
[download]

Definitely time to refactor. Or even better yet, start from scratch if time and budget allow for it.