remove duplicate element in array

[asylu3]

Style A:

$str="me you do me them you does do";
@nondub =split " ", $str;
@nondup =grep { ! $str{$_}++ } @nondub ;
print join(' ',@nondup );




Style B:

$str="me you do me them you does do";
@nondub =split " ", $str;
@nondub =sort keys %{+{ map { $_, 1 } @nondub}};
print join(' ',@nondub);


output

do does me them you