Select Code to Download

use Modern::Perl;
use Regexp::Assemble;

...
for my $idx ( keys @gl ) {
    say "$idx: $gl[$idx] : $csta[$idx]" if ( $gl[$idx] =~ m/$ra/ );
}

3: 5 : E
13: 1 : A
15: 3 : C
...
75: 1 : A
81: 12 : L
83: 5 : E