my @results = second_sub(first_sub(@stuff));

# time passes

sub first_sub {
  my @inputs = @_;
  my @results;
  # etc
  return @results;
}

sub second_sub {
  my @results;
  foreach my $line (@_) {
    # etc
  }
  return @results;
}