@list = qw/paul jane paul betty paul jane/;
%temp = ();
@list = grep ++$temp{$_} < 2, @list;