Select Code to Download

perldoc -f rand

my %gates = (
  'gate001' => {
...
    'outputs' => [], # array of output values
  }
);

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