sub Entry( $ $ $ $ ) {
    my ( $row, $slno, $testid, $status ) = @_;

    $worksheet->write( "A$row", $slno );
    $worksheet->write( "B$row", $testid );
    $worksheet->write( "C$row", $status );
}