my @DATA;

my @data = q(
testing 1
testing 2
testing 3
);

for (@data) {
push @DATA, split /\n/;
}

$DATA[$_].="\n" for 0..$#DATA;

for(@DATA){
chomp;
print;
}