for my $line (@lines){
  $response->write($line);
}