sub validate_properties {
    for ( @{$_[0]}  ) {
     $_->{supported} = .5 < rand;
    }

}