my @files = grep -f, map "$_/vp.o$id", qw/archi1 archiv/;