#!/usr/bin/perl

use warnings;
use strict;

open (FD,">>text.txt");

my $flag = 0;

foreach my $num (0 .. 10)
{
        if ($flag == 1)
        {
                print FD $/,$num;
        }
        if ($flag ==0)
        {
                print FD $num;
                $flag = 1;
        }
}

##</code><code>##

 Its old text 
0
1
2
3
4
5
6
7
8
9
10