for my $number (@pvt_file) {
    say join ' ', map $_ . "_$number", @cell_file;
}