Select Code to Download

...
print OUTPUT "Geo1: @riGeo1\n";
...
print OUTPUT "Geo4: @riGeo4\n";
print OUTPUT "Geo5: @riGeo5\n";
....

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

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

print $riPrimGroup[3][2];