#!/usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $file = 'whiletest.txt';
tie my @lines,"Tie::File",$file or die $!;
for(0..3){
    for my $line(@lines){
        print $line,"\n";
    }
}
untie @lines;