print can also be an expensive process. Instead of doing a print in the for loop save the resulting line to a $variable and after the loop is completed print the string to the file.

my $output;
while (<report>) {
  $output .= $line;
}
print FILE $ouput;
[download]