my %used_dn=(); my %en2dn=(); my %ed_en;
my %pfinfo=();
my $i=50000;
while ($i>0) {
    $pfinfo{$i--}= "$i|Henion,David|A|Active|010474|HAWKEY,Michael G|SC3789";
}

my $log=0;
$i=0;
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

sub LogAndSkip {}

sub createEDentry {
    my ($LOG,$pfi,$used,$en)=@_;
}

sub updateEDentry {
    my ($LOG,$pfi,$en)=@_;
}