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

}