while ( <FH> ) {
    chomp ;
    if ( /^\d\d\d/) {
        ( $id , $gender , $birthday , $status , $room , $seat , $version , @points ) = split ( /,/ , $_ ) ;
        $student = { 
            'id'       => $id ,
            'gender'   => $gender , 
            'birthday' => $birthday ,
            'position' => $position ,
            'room'     => $room , 
            'seat'     => $seat ,
            'version'  => $version ,
            'points'   => @points
        } ;
        push ( @candidates , $student ) ;
    }
    } ;
    close FH ;
    print "Number of candidates processed: " . ( $#candidates + 1 ) . "\n" ;