Why canīt you do like this:

open(my $fh, '<', 'control_report_file') or die "blabla $!";
while(<$fh>){
   my $content = $_;
   chomp $_;
   #Do whatever you need
}
close $fh;
#hey look... I have memory yet...
[download]