my $file_name = shift;
my $lines_in = shift;

# skip a few

    $$lines_in .= $_;