The following hash is getting generated from a subroutine:

%pfinfo = { '069836' => '069836|Henion,David|A|Active|010474|HAWKEY,Michael G|SC3798|...' ,
	   '025939' => '025939|Picard, Stephane|A|Active|010101|LEPINE,Thibault|SG8778|...' ,
	     ...}

my $timee0 = new Benchmark;
foreach my $en (keys %pfinfo)
{
  logAndSkip(\*LOG,"Considering the entry from PeopleFirst extract: $en...") if ($log);
	
# Get the PF information
my @pfi=(); #reset the array
@pfi=split/\|/,$pfinfo{$en};

# If employee number does not exists in ED, it looks like a creation
if (!exists $ed_en{$en})
{
 createEDentry(\*LOG,\@pfi,\%used_dn,\%en2dn);
}
# Looks like an ED entry update
else
{
 updateEDentry(\*LOG,$en2dn{$en},\@pfi,\%en2dn);
}
} # End Foreach