Select Code to Download

use strict;
use warnings;
...
        }
    }
}

foreach my $letter(@array2){
    foreach my $roman(@array3){
...
        }
    }
}