#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;
}}}

----
{{{
}}}