my @result = grep { my $lang = $_; ! grep { $lang eq $_ } @employee } keys %languages;