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