my %seen;
  my @result = sort map { $seen{$_}++ ? () : $_ } @records;