foreach $Name (sort keys %dataname)
{
  for (APRIL, MAY, JUNE) {
        if ($count{$Name}) {
            $count{$Name}++;    
        }
}
printf OUTFILE "%-50s %d\n", $Name, $count{$Interface_Name};