C:\test>perl  mlfimport.pl
syntax error at mlfimport.pl line 55, near "if  $hris "
Global symbol "$lookup" requires explicit package name at mlfimport.pl line 55.
Execution of mlfimport.pl aborted due to compilation errors.

##</code><code>##

while (<$FILE1>) {
    foreach my $value (keys %lookup) {
        if ($hris [1] eq $lookup{$value}) {
            &print_entry($dn, $uid, $div, $loc);
        }	
    }
}