sub remove_cruft
{
  my @lines = @_;
  # do stuff to @lines;
  return @lines;
}
# use as:
my @no_cruft = remove_cruft(@lines);
# or:
my @no_cruft = remove_cruft(<FH>);