my で$a,$b・・・といくつもの変数すべてに0を入れたいんですが、
以下のやり方より、もっと効率的な書き方はないでしょうか？

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