- myfill($_[0], 0, $a, $x);
- myfill($_[0], $a, $b, 1 - $x);
- myfill($_[0], $a + $b, $c, $x);
- myfill($_[0], $a + $b + $c, $n - ($a + $b + $c), 1 - $x);
+ myfill $_[0], 0, $a, $x;
+ myfill $_[0], $a, $b, 1 - $x;
+ myfill $_[0], $a + $b, $c, $x;
+ myfill $_[0], $a + $b + $c, $n - ($a + $b + $c), 1 - $x;