Select Code to Download

@result = map scalar reverse, 
    glob("{1,2,3,4,5,6,7}{A,B,C,D,E,F,G}");  # CheeseLord
...

@result=map$_.$array1[0]..$_.$array1[$#array1],@array;

#!/usr/bin/perl -w
use strict;
...
push @results,  join( "", @$_) for @$recs;

print "@results\n";