sub page {
  foreach (@_) {
    print "$_";
    $ln++;
    if ($ln+1 == $=) { print "--more--"; chop (my $i=<>); $ln = 0 }
  }
}

##</code><code>##

{
  page "foo bar baz bletch";
  page @an_array_of_text;
  page $foo;
  # or if you must...
  my $buf = sprintf ("%.5d", $real);
  page $buf;
}