A do { ... } unless { ...; } variant.

$ perl -Mstrict -Mwarnings -E '
my $raLines = [ qw{ Line1 Line2 Line3 } ];

sayLines( $raLines, q{     } );

sub sayLines
{
    my( $raLines, $indent ) = @_;
    my $notFirst;

    do {
       print $indent;
       $notFirst ++;
       } unless $notFirst;

    say for @{ $raLines };
}'
     Line1
Line2
Line3
$
[download]