!$history{$_}++ && splice(@history, $i--, 1);

##</code><code>##

my %seen;
@history = reverse grep { !$seen{$_}++ } reverse @history;