while(my ($key, $user) = each %user) {
   my $check = (split /\|/,$user)[4];
   next unless $check && defined $foo{$check};
   # ggf. auch    
   # next unless $check && exists $foo{$check};
}