my %uniq;
undef @uniq{@arr};
@arr = keys %uniq;