#!/usr/bin/perl
# p ---
# Author: Dan Jacobson https://www.jidanni.org/
# Copyright: https://www.gnu.org/licenses/gpl.html
# Created: 2024-04-19T02:34:14+0000
# Last-Updated: 2024-04-19T03:49:53+0000
#     Update #: 19
#
# Look Mom, no meters! All thinking done in pole codes!
use strict;
use warnings q(all);

my @m = glob("G8{3,4,5}5{2,3,4}");
for(@m){print $_, "AA00$/";}
exit;

my @v = ( [ 69 .. 73 ], [ 49 .. 54 ] );
#
my $center = "DC05";    #400e,250n (meters, yes)
use Data::Dumper;
#my @m;
for ( 0, 1 ) {
 #   push @m, [$v[0][$_],$v

}
print Dumper \@m;