my ($foo, $bar, $baz) = (0, 0, 0);
my ($foo, $bar, $baz) = (0)x3;