Your code does not run and has a lot of errors, anyway, if I understand your code correctly, here's something that will work for you.

use Data::Dumper;

# note that you do not need to explicitly fill in the 
# elements of the array one by one, make use of
# perl's lists.
 
my @lite = (
    [qw/2 5 0 999 999 0/],
    [qw/4 3 0 999 999/],
    [qw/1 4 0 999 999/],
    [qw/1 4 0 999 999/],
    [qw/4 1 0 999 999/]
);

my %h;

foreach (@lite) {
    # construct a key made of the X value x the Y 
    # value and count on that being uniq.
    my $xy = $_->[0] . 'x' . $_->[1];

    # hash keys are uniq,
    # so we make the value an array reference 
    # containing the original x and y values.
    $h{$xy} = [$_->[0], $_->[1]];
}

# just retrieve the values from the hash.
my @filtered = values %h;

print Dumper(\@filtered);
[download]

I think he just wants to search the numbers and doesn't care whether it's x or y. So your hash asignment becomes:

++$h{$_->[0]};
++$h{$_->[1]};
[download]

and the result is simply printed with:

print join(' ',sort keys %h),"\n";
[download]

Very nice, Chady.

I'd like to add a few things:

First, to filter out the unused ($lite[$something][5]) you can change:


$h{$xy} = [$_->[0], $_->[1]];
[download]

to:


$h{$xy} = [$_->[0], $_->[1]] if $_->[5];
[download]

Second, when you write a loop, you should try to include only the essential stuff in it, so your program runs faster and consumes less resources. so this:

for my $o (0 .. $#line) {
    select BLA
    print ...
    select STDOUT
}
[download]


can become:

select BLA;
for my $o (0 .. $#line) {
    print ...
}
select STDOUT;
[download]

But it's also possible to give a file handle to print, like so: print HANDLE "Something\n"; and then you don't have to select and reselect at-all.

---

perl -e'$b=unpack"b*",pack"H*","59dfce2d6b1664d3b26cd9969503";\
for(;$a<length$b;$a+=9){print+pack"b8",substr$b,$a,8;}'
[download]

My public key

Your code as originally posted contained the start of at "for" loop (near the end) that was never terminated. (That was the only syntax error that made it impossible to run.)

But apart from that, your use of "select" in the last "for" loop is quite wasteful and unnecessary -- when you want to write to a specific file, just use the file handle in the print statement:

open( OUT, ">file.name" ) or die "can't write to file.name:$!";

print OUT "Line $_ : [$line[$_]]\n"  for (0..$#line);

close OUT;
[download]

Also, as Chady demonstrated, your array initialization does not require all the typing you did in your original code -- and you don't need to do anything to initialize the size of an array -- Perl will grow the array for you as you assign values to array elements, and there are many ways to declare an initial set of array values with relatively little typing.

Thanks for everyone's help. That is exactly what I was looking for. Thanks for the help with filling arrays and printing to filehandles. Thanks again.