open FILE_IN , "test.txt" or die "$!";
open FILE_OUT, ">spisok.txt" or die "$!";
print FILE_OUT "пузырь ".$_ while(<FILE_IN>);
close FILE_IN;
close FILE_OUT;