You can't do it quite like that, but you could do either of these:

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

-- Mike

--
just,my${.02}