sub uniq2 {
  my @out = ();
  my ($a, $lasta);

  for ( my $i = 0; $i < @_; $i++ ) {
    splice @_, $i--, 1 if defined($lasta) && $_[$i] eq $lasta;
    $lasta = $_[$i];
  }
  return @_;
}