use strict;     # the obligitory
use warnings;   # use strict and warnings
use Digest::MD5;

my $makedigest = \&digestit;
my %ldb = $makedigest->(\%lemployee, $lsth);
my %rdb = $makedigest->(\%remployee, $rsth);