Select Code to Download

@values = values(%hash);
...
{
   $count ++ if defined($i);
}

@values = values(%hash);

...
{
   $count ++ if $i;
}

$count = (grep { /^$/ } values(%hash))- scalar(values(%hash);