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