for (my $i = 0; $i < $num; $i++) {
  print "$ARGV[$i]\n";
  open (FH, "$ARGV[$i]") || die "Cant open: $!";
  while (<FH>) {
    push @out, lc;
  }
  close FH || die "Cant open: $!";
}

print @out;