Help for this page
for (my $i = 0; $i < $num; $i++) { print "$ARGV[$i]\n"; ... } close FH || die "Cant open: $!"; }
print join (@out,"\n");