my ($a, $b, $c) = (0) x 3; print "$a - $b - $c"; [download]
update:
In reply to Re: Shorten initializers by fglock in thread Shorten initializers by Anonymous Monk