Re^2: How do I remove the duplicates from the array?

[PetreAdi]

Very good

But i need

 @output =  ( -20, , ,1, , , ,9,3, ,-4, 5, ,20); 
 @output1 = (  10, , ,9, , , ,1,3, , 5, 5, ,30);
 $#array==$#array1==$#output==$#output1

[choroba]

Please, be more precise. Even if Perl can "do what you mean", sometimes you have to be careful.

@long   = (1, 2, 3, 4, 5);
@sparse = (1,  ,  , 4,  );
@short  = (1, 4);
print "Equals\n"  if $#long  == $#sparse;
print "Shorter\n" if $#short == $#sparse;

[parv]

Update: Never mind the below for farang had already showed that above.

I /GUESS/ OP has a issue of keeping track of missing values and display of them. So, undef (ideally; else nothing, '') could be used for the missing values. Format the display with whitespace as needed.

[farang]

In that case you can add an else block to the code generating the arrays @output and @output1 in choroba's code.

my (@output, @output1);
for my $i (0 .. $#array) {
    if (exists $hash{ $array[$i] }
            and $array1[$i] == $hash{ $array[$i] }{highest}) {
        push @output,  $array[$i];
        push @output1, $array1[$i];
    }
    else {
        push @output,  '';  # or use spaces ' ' here 
        push @output1, '';  # or whatever you want
    }

}