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>);

##</code><code>##

# Using prototypes (which are considered "evil" by some)
sub remove_cruft(@)
{
  my $lines = shift;
  # do stuff to @$lines
}
# use as:
remove_cruft(@lines)
# this still doesn't work:
# remove_cruft(<FH>)

##</code><code>##

sub remove_cruft
{
  my @lines;
  if (@_ > 1)
  {
    # lines were passed in.
    @lines = @_;
  }
  # we either got a filename or a filehandle.
  elsif (ref $_[0]) # assume object is a filehandle.
  {
    @lines = <$_[0]>;
  }
  else # must be a filename.
  {
    my $fh = IO::File->new(shift, 'r');
    @lines = <$fh>;
  }
  # do stuff to @lines;
  @lines;
}