my $lines_in  = shift;

[...]

$$lines_in .= $_;