chomp $_;
# Split the line by whitespace
my @array = split (/\s+/, $_);
# If the first column of a line is blank whitespace, shift it out so the
# first column corresponds to actual user viewable data, which is the way
# a user will count the columns, ignoring leading whitespace.
if ($array[0] eq "") {
shift (@array)
}
####
# Split the line by whitespace
my @array = split;
##
##
while (<@array>) {
##
##
while (glob join $", @array) {
##
##
foreach (@array) {