#!/usr/bin/perl
use warnings;
use strict;

use Data::Dumper;

sub validate_properties {
    my $properties = shift;
    for my $prop (@{$properties}) {
        if (.5 < rand) {
            $prop->{supported} = 1;
        } else {
            $prop->{supported} = 0;
        }
    }
    return $properties
}

print Dumper validate_properties([map +{ id => $_ }, 1 .. 5]);