Select Code to Download

use strict;     # the obligitory
use warnings;   # use strict and warnings
...
my $makedigest = \&digestit;
my %ldb = $makedigest->(\%lemployee, $lsth);
my %rdb = $makedigest->(\%remployee, $rsth);

sub digestit
{
...
    }
    return %newdbhash;
}