for my $ind (0..$#Buffer-1) {
                    print OUT $Buffer[$ind];
                }