Select Code to Download

#!/your/perl/here

...
my @glob2 = glob $glob2;

print map {"$glob1[$_]\t$glob2[$_]\n"} 0..$#glob1;