use strict;
use warnings;

$= = 5;

for(1..15) {
  write;
  #$- = 999;
}

format STDOUT =
@### @###### @###
$_, $_**2, $-
.
format STDOUT_TOP =
---TOP---
.
__END__

##</code><code>##

---TOP---
   1       1    0
   2       4    3
   3       9    2
   4      16    1
&#9792;---TOP---
   5      25    0
   6      36    3
   7      49    2
   8      64    1
&#9792;---TOP---
   9      81    0
  10     100    3
  11     121    2
  12     144    1
&#9792;---TOP---
  13     169    0
  14     196    3
  15     225    2

##</code><code>##

---TOP---
   1       1    0
   2       4  999
   3       9  999
   4      16  999
   5      25  999
   6      36  999
   7      49  999
   8      64  999
   9      81  999
  10     100  999
  11     121  999
  12     144  999
  13     169  999
  14     196  999
  15     225  999