sub whatever {
  local $_;
  while(<$in>) {
    # do stuff
  }
}