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