@list = (a..z);
{ # ok for STDOUT
  local $\ = $/; # set output record sep to input record sep for this block
  print for @list;
}

{ # wrong
  open my $fh,'>', 'foo' or die "Oops: foo - $!\n";
  local $\ = $/;
  print $fh for @list; # WRONG. This prints GLOB(0x1945bd8) or such 26 times
}
# file 'foo' closed here, since $fh is out of scope

{ # ok
  open my $fh,'>', 'bar' or die "Oops: bar - $!\n";
  my $fh = select $fh; # $fh now default filehandle
  local $\ = $/;
  print for @list; # OK
  select $fh; # restore STDOUT as default filehandle
}
# file 'bar' closed here, since $fh is out of scope