I like (and prefer and often do) this way:

my @str = qw(aaa bbb ccc ddd eee ddd aaa bbb ccc);
my %uniq = ();
my @uniq_str = grep { ! $uniq{$_}++ } @str;
[download]