my $one = my $two = my $three = my $four = 0;