Select Code to Download

# mkmcconn meaning here:
while (<DATA>) { # not "for"... no need to suck all into memory
...
    }
  }

@strings=('aaaaaa','11111aaaaa');
foreach (@strings)
...
    print "$_\n";
    print "\tORD = $ord\tNUM = $number\tLET = $letter\n";
}