my ( $name , $height, $weight );
my $ratio := $height/$weight;     # I would presure that 
                                  # this would need to be
                                  # done under -w/strict
send_to_html( $name, $ratio ) 
    while ( $name, $height, $weight ) = $sth->fetchrow_array() );