my @pre_push = qw(test test2);
my $level = 2;
my $buff = '';

$buff .= $_ for map {"\n" . ('  ' x ($level - 1)) . $_} @pre_push;
print $buff;

##</code><code>##


  test
  test2

##</code><code>##

$buff .= "\n" . ('  ' x ( $level - 1)) . $_ for @pre_push;