sub display_paragraph() {
   my $aref = shift;
   my $indentation = shift;
   while (my ($index, $line) = each @$aref) {
      if ($index == 0) {     # test the position
         print ' ' x $indentation;
      }
      print "$line\n";
   }
}