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