my $toggle = -1;
for (1..10) {
   print $toggle *= -1, $/;
}