in reply to Shorten initializers

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

[download]

update:

$_=0 for my($a,$b,$c);

In Section Seekers of Perl Wisdom