#keywords Perl, memset
Case 1.
{{{#!gcode
my @out;

for ($i = 0; $i<$out_len; ++$i){ $out[$i] = 0;}
}}}


Case 2.
{{{#!gcode
my @out = (0) x $out_len;
}}}

----
{{{
$out_len = 5;
@out = { 0, 0, 0, 0, 0 }
}}}