Select Code to Download

use warnings;
use strict;
...
);

print "First group is: $number{23}[0][0]\n";

First group is: g1