sub clean_array 
{
  my %hash;
  @hash{@{$_[0]}}=();
  @{$_[0]}=keys %hash;
}