for (1..6){
  $line = <$input_file>;
  print $output_file $line;
}