{
  my $old = select $fh;
  local $\="\n";
  print for @very_big_redundant_array;
  select $old;
}