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