my $counter = "0";
for (@stripped_array) { $_ =~ s/dienice\(\"/dienice\(\"Line $counter/; $counter++; }