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