Something like:

    open my $num, ">> count.txt" or die "Open: $!";
    foreach (1 .. 10) {
        printf $num "%2d  %2d\n", $_, $_ + 10;
    }
    close $num or die "Close: $!";
[download]

Abigail