foreach my $class ( sort keys %classHash ) {

        if  ( $classHash{$class} = "NT" )   { $outhandle = *NTOUT; }
        if  ( $classHash{$class} = "UNIX" ) { $outhandle = *UNIXOUT; }
        if  ( $classHash{$class} = "MAIL" ) { $outhandle = *MAILOUT; }

    foreach my $status ( sort keys %{ $classHash{$class} } ) {