Help for this page

Select Code to Download

Select or download this

use Data::Dumper;

...
}

print Dumper( \@group1 );

Select or download this

$VAR1 = [
          'A',
...
          'I',
          'J'
        ];