I actually have a collection of favorites depending on context. One of my perennial favorites is:

# hand wavium prior to this line
my %een=();   # keep track of values we have already seen
@rray = grep !$een{$_}++ sort @rray;
[download]

Others include $tring, $thing, $that (extra $this),$tatus and many more.