perldoc -f rand

##</code><code>##

my %gates = (
  'gate001' => {
    'gate_type' => 'FLIPFLOP',
    'inputs' => [],  # array of input values
    'outputs' => [], # array of output values
  },
  'gate002' => {
    'gate_type' => 'XOR',
    'inputs' => [],  # array of input values
    'outputs' => [], # array of output values
  }
);

##</code><code>##

for (1..20) {
  push @{$gates{'gate001'}{'inputs'}}, rand(2.0) - 1.0;
}