foreach my $clipnum (keys %file) { $menucount++ if ($file{$clipnum}{FILETYPE} eq "Menu"); $menunvocount++ if ($file{$clipnum}{FILETYPE} eq "Menu" && $file{$clipnum}{VOICEOVER} eq "No"); $videocount++ if ($file{$clipnum}{FILETYPE} eq "Video"); $nvocount++ if ($file{$clipnum}{VOICEOVER} eq "No" && $file{$clipnum}{FILETYPE} eq "Video"); $vocount = $videocount - $nvocount; $menuvocount = $menucount - $menunvocount; }