use strict;
use warnings;

open (T1, "t1") or die;

my $line;
my $flag = 1;
my $counter;

DATA:
while (<DATA>) {
    print;
    goto T1;
}

T1:
while (<T1>) {
    print;
    goto DATA;
}

__END__
file1
file1
file1
file1