Re: Removal of duplicated element in array.

[2teez]

Hi tty1x,
A few snapshot observations and 2 'kobo' suggestion:

• A number of solution previously given to you actually work, only that some may not preserve the order of data.
• This does work for me, which is not far from your OP, except that I have to create the variable $match.

  use warnings;
  use strict;
  
  my $match = <<'EOF';
  [e-mail]
  [e-mail]
  [e-mail]
  [e-mail]
  
  EOF
  
  my %seen;
  my @r;
  
  foreach my $v ( split /\n/, $match ) {
      unless ( $seen{$v}++ ) {
          push @r, $v;
      }
  }
  $" = "\n";
  print "@r";
  

• Please, as much as possible try not to use the variable $a, since function sort uses it

Tested this out on codepad an online compiler/interpreter.