my @foo = qw( aaaaaaaa bbbbbbbb cccccccc dddddddd eeeeeeee ffffffff);
sub foo {
  for ( @_ ) {
      $_ =~ s/(.)\1/$1/ || return;
      print $_ . "\n";
      foo( $_ );
  }
}

foo @foo;
print @foo;