Select Code to Download

my $section = 0;  my @sectone;  my @secttwo;
while(<TEXTFILE>) {
...
            print "No section defined for: $_\n";
        }
    }

my $section = 0;  my @sectone;  my @secttwo;
while(<TEXTFILE>) {
...
            print "No section defined for: $_\n";
        }
    }

my $section = 0;
my %sections = (1 =>[],2=>[]);
...
            print "No section defined for: $_\n";
        }
    }

my $section = 0;
my %sections = (1 =>[],2=>[]);
...
    warn "No section defined for: $_\n";
# cause warn gives you $. in <TEXTFILE>
}

my $section = 0;  my @sectone;  my @secttwo;
while(<TEXTFILE>) {
...
            warn "No section defined for: $_\n";
        }
    }

my $section = 0;
my %sections = (1 =>[],2=>[]);
...
                     and next()}}
    ,$_;
}

my $section = 0;
my %sections = (1 =>[],2=>[]);
...
warn "No section defined for: $_\n" unless $sections;
push @{$sections{$sections}},$_
}

my $section = 0;
my %sections = (1 =>[],2=>[]);
...
                     and next() )}}
    ,$_;
}