$ perl -e '
> sub printVariables
> {
>     print join qq{\n}, @_, q{#} x 10, q{};
> }
> 
> $v1 = 123;
> $v2 = 456;
> printVariables( $v1, $v2 );
> 
> @arr = qw{ pete john mike };
> printVariables( @arr );'
123
456
##########
pete
john
mike
##########
$

##</code><code>##

chomp $line;

##</code><code>##

... die "Can't open file " . $out_file . "\n$!\n";

##</code><code>##

... die "Can't open file $out_file\n$!\n";