Select Code to Download

#!/usr/bin/perl -w
use strict;

...
while(  @coords= $next->()  ) {
    print "( @coords )\n";
}

( 5 1 -5 )
( 6 1 -5 )
( 7 1 -5 )
...
( 5 3 -3 )
( 6 3 -3 )
( 7 3 -3 )