#!/usr/bin/perl -w
use strict;
use warnings;
#
my $debug = 0;

open(OUT, "<sample.txt") or die "open 'Kigali_r.txt' failed: $! ($^E)";
open(IN, ">sample_tr.txt") or die "open 'Kigali_tr.txt' failed: $! ($^E)";

for (my $ii=0; $ii < 6; ++$ii) {
    my $line = <OUT>;
    chomp $line;
    print IN "$line\n";
   }

while (<OUT>)
  {
    my @rain = <OUT>; 
    print IN "@rain\n";
   }
 close OUT;
 close IN;

__END__