Select Code to Download

sub dec2bin {
    my $str = unpack("B32", pack("N", shift));
#    $str =~ s/^0+(?=\d)//;   # otherwise you'll get leading zeros
    return substr( $str, -6 );
}

if( $value eq undef ) { ...

if( defined $value ) { ...

for my $i ( 0 .. 63 ) {
  ...
}

$tree->{ ('left', 'right')[ rand 2 ] }
       { ('left', 'right')[ rand 2 ] }
       { ('left', 'right')[ rand 2 ] } = 'AND';;