my ($a,$b,$c) = (0) x 3;

##</code><code>##

my ($a,$b,$c) = (0, 0, 0);