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

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