my @in_files = ();
foreach my $input_glob (@ARGV) {
  print $input_glob; push @in_files, glob("$input_glob");
}
# reading and storing lines
foreach my $in_file (@in_files) { open (LINES, '<', $in_file); ...