header --
ID,gender,birthdate,order,room,seat,version,points,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
277710814533,f,01/02/1993,m,sr_3,A11,A, 1,1,1,1,0,1,1,1,.5,1,1,1,0,1,.5,1,1,1,0,1,.5,1,1,0,1,1,1,1,1,1,1,0,0,1,0,1,.5,1,1,1,1,.5,0,1,1,1,0,1,1,1,1,1,0,1,1,1,.5,1,1,1
755310765962,f,31/07/1992 00:00,v,aula,C11,C,1,.5,0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,0,1,1,1,.5,1,0,.5,1,0,1,.5,0,.5,0,1,0,0,.5,1,1,0,.5,1,1,.5,.5,1,.5,.5,1,1,1,.5,.5
394610513538,m,20/10/1992 00:00,m,sr_3,E13,E,1,1,0,.5,1,1,1,1,1,1,1,.5,1,1,.5,.5,1,1,1,.5,.5,1,1,1,1,0,0,.5,1,1,.5,.5,.5,.5,0,1,0,.5,0,0,1,0,1,.5,0,1,0,0,.5,1,0,1,1,0,.5,.5,.5,.5,.5,.5

##</code><code>##

    
    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" ;

##</code><code>##

        755310765962 
    $VAR1 = \{
            '0' => '0',
            'gender' => 'f',
            'id' => '755310765962',
            'points' => '1',
            'room' => 'aula',
            '.5' => undef,
            '1' => '.5',
            'birthday' => '31/07/1992',
            'seat' => 'A11',
            'version' => 'A',
            'status' => 'v'
          };