Array found where operator expected at ./orph.pl line 20, near "} "
	(Missing operator before  ?)
Not enough arguments for grep at ./orph.pl line 20, near "grep |"
syntax error at ./orph.pl line 20, near "$eval{"
Execution of ./orph.pl aborted due to compilation errors.

##</code><code>##


#! /usr/bin/perl

uid1;
uid2;

while(($uid) = getpwent()) {
push(@uid1, $uid);
}
print " passwd users: @uid1\n";
opendir(DIR,'/home') or die "error opening home dir";
#foreach my $none(readdir(DIR)){
if($none = n(/^\./)) {
next #;
#}
push(@uid2, $none);
print "home Directory Elements :@uid2\n";
closedir(DIR);
}
@eval { map {lc} @uid1} = ();
@uniqueElements = grep |e $eval{lc $_} @uid2;
print "not in either locations:@uniqueElements\n";
exit;