open(COUNT, ">>count.txt") or die("Can't create count.txt: $!\n");

print COUNT $_, ' ', $_ + 10, $/
  for 1 .. 10;

close(COUNT);