#!/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]);

##</code><code>##

$VAR1 = [
          {
            'id' => 1,
            'supported' => 0
          },
          {
            'id' => 2,
            'supported' => 0
          },
          {
            'id' => 3,
            'supported' => 0
          },
          {
            'id' => 4,
            'supported' => 1
          },
          {
            'id' => 5,
            'supported' => 0
          }
        ];