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