Kann ja vorkommen; ich denke, %seen ist in der perlfaq öfters benutzt und hat sich vielleicht mehr oder weniger unbewusst festgesetzt.

Beim drüber nachgrübeln fiel mir noch ein: Die originale Frage ist ja eine FAQ:

perldoc -q duplicate

Quote

Question: How can I remove duplicate elements from a list or array?
Answer:
...
You can write this more briefly using a grep, which does the same thing.

my %seen = ();
my @unique = grep { ! $seen{ $_ }++ } @array;

perldoc -q duplicate

edit: Grammatikfehler korrigiert :edit