...
print OUTPUT "Geo1: @riGeo1\n";
print OUTPUT "Geo2: @riGeo2\n";
print OUTPUT "Geo3: @riGeo3\n";
print OUTPUT "Geo4: @riGeo4\n";
print OUTPUT "Geo5: @riGeo5\n";
....

##</code><code>##

print "Geo$_: @{$riPrimGroup[$_-1]}\n" for 1..5;

##</code><code>##

print "Geo$_: @{$rePrimGroup[$_-1]}\n" for 1..@riPrimGroup;

##</code><code>##

print $riPrimGroup[3][2];