#!/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;
        }
}