Hmmm... I just now thought about the possibility of going back and adding another loop, and going back to the print option, and adding in a tab character between each value for 3 or 4 loops, and then a \n. Sounds like it would work... but doesn't sound very... elegant.

Adding this code after the while loop will do this.

my $cols = 4;

for my $i (0 .. $#UACS) {
    print $UACS[$i], (($i + 1) % $cols ? qq{\t} : qq{\n});
}

print qq{\n} if @UACS % $cols;
[download]