Use the values ox X as keys in a hash and increment the hash-value

my $x;
my %y = ();
while( $x = getvaluesofx() ) {
    $y{$x} += 1;
}
[download]

just an example, not working code :)

regards,
tomte

---

Hlade's Law:

If you have a difficult task, give it to a lazy person --
they will find an easier way to do it.