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