while (@UACS) 
    {
        my @rows = splice(@UACS, 0, 5);
        print "@rows";
        format STDOUT =
    @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<< 
    @rows
.
    write;
    }