(*.txt *.aux) -> (file1.txt file2.txt file1.aux file2.aux) #### sub globlist { my @back; foreach my $elem (@_) { push @back, (glob $elem); } return @back; }