#!/usr/local/bin/perl

foreach (1..10) {

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

}

foreach (11..20) {

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

}