for my $row (@UACS)
   {
    format STDOUT = @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<
    shift(@row)
.
    write;
   }