ohh I forgot something - oops
my $what_i_am_looking_for = "34567";
my $index = 0;
# LOOP THROUGH IT
foreach $value (sort {$coins{$a} cmp $coins{$b} } keys %coins)
{
$index++;
next unless $value == $what_i_am_looking_for;
print "<$value---$index> $coins{$value}>\n";
}-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
