$output_filename="text_file.csv";
open (FH, "+< $output_filename") or die "can't open";
my $line =<FH>;
seek FH, 0,0;
print FH "This is my header \n".$line;