sub display_paragraph() {
   my $aref = shift;
   my $indentation = shift;
   my $first_time = 0;        # declare and init a flag
   for my $line (@$aref) {
      if (++$first_time == 1) {     # change and test the flag
         print ' ' x $indentation;
      }
      print "$line\n";
   }
}

##</code><code>##

use 5.010;
sub display_paragraph() {
   my $aref = shift;
   my $indentation = shift;
   for my $line (@$aref) {
      state $first_time = 0;        # declare and init a flag
      if (++$first_time == 1) {     # change and test the flag
         print ' ' x $indentation;
      }
      print "$line\n";
   }
}

##</code><code>##

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";
   }
}