#!/usr/bin/perl -w

$= = 10;

my @x = (1..10);


format STDOUT_TOP =
+                      queue     proc_status
+                        |           |
+proc        prio        |    msg    |     log       broadcast   Shared Mem
+name                    |    type   |                  node      Segments
.

format STDOUT =
@|||||||      @||      @||||  @|||  @|| @||||||||||  @||||||||   @< @< @< 
@x
.

for (1..12) {
    write;
    @x = map {$_ +1} @x;
}

__END__
Prints:

+                      queue     proc_status
+                        |           |
+proc        prio        |    msg    |     log       broadcast   Shared Mem
+name                    |    type   |                  node      Segments
   1           2         3     4     5       6           7       8  9  10
   2           3         4     5     6       7           8       9  10 11
   3           4         5     6     7       8           9       10 11 12
   4           5         6     7     8       9          10       11 12 13
   5           6         7     8     9      10          11       12 13 14
   6           7         8     9    10      11          12       13 14 15
^L
+                      queue     proc_status
+                        |           |
+proc        prio        |    msg    |     log       broadcast   Shared Mem
+name                    |    type   |                  node      Segments
   7           8         9     10   11      12          13       14 15 16
   8           9        10     11   12      13          14       15 16 17
   9          10        11     12   13      14          15       16 17 18
   10         11        12     13   14      15          16       17 18 19
   11         12        13     14   15      16          17       18 19 20
   12         13        14     15   16      17          18       19 20 21