my @pre_push;
my $level = 2;
my $buff = '';

push (@pre_push, "test");
push (@pre_push, "test2");

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