open my $fh,"+<four_comma.txt" or die "Cannot open text $!";
my $i=0;

for (1..5) {
	while(<$fh>){
		say $_;
		say ++$i;
	}
	seek $fh, 0, 0;
}