sub findDupsInArray {
my @array =(@_);
@array = sort{$a cmp $b} @array;
my $previtem;
 foreach my $item (@array){
   if($item ne $previtem ) {
       push (@dups,$previtem);
   }#if
   $previtem = $item;
  }#foreach
return @dups;
}