N.Gingrich
S.Thurmon
R.Reagan
S.Bono
C.Eastwood

##</code><code>##

#!/usr/bin/perl -w

@sterren=('J.v.Dijk','R.Reagan','C.Eastwood','M.Jackson','Cher','S.Bono');
@politici=('N.Gingrich','S.Thurmon','R.Reagan','S.Bono','C.Eastwood','JvDijk','M.Thatcher');

%diff=();
foreach (@sterren)
 {$diff{$_}=1;}
@diff=grep( ! $diff{$_}, @politici);
print @diff;