Select Code to Download

while((my $key,my $value) = each %hash)
{
   print "$key - $value\n";
   $count++ if $value==keys(%hash);
}

while((my $key,my $value) = each %hash)
{
   print "$key - $value\n";
   $count++;     # if $value==keys(%hash);
}