Select Code to Download

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

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

  test
  test2

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