c:\@Work\Perl\monks>perl -wMstrict -e
"my $arrayref = [ 'The quick', 'brown fox jumped', 'over the lazy dog.', ];
 ;;
 for my $i (0 .. $#$arrayref) {
   printf ' ' x 6 if $i == 0;
   print qq{$arrayref->[$i] \n};
   }
"
      The quick
brown fox jumped
over the lazy dog.