1:  my %s = ();
  2:  $s{$_}++ for @array1;

  3:  for my $value ( keys %s ) {
  4:    print "\n".$s{$value}."\n";
  5:    if ($s{$value} > 1){
  6:      $v=$value;
  7:    }
  8:    if ($value eq $v){
  9:      delete $s{$value};
 10:    }
 11:    else {
 12:      print "$value";
 13:    }
 14:  }