my ($one, $two, $three, $four) = (0,0,0,0);

##</code><code>##

my ($one, $two, $three, $four) = (0) x 4;