Select Code to Download

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

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

#!/usr/bin/perl

...
open my $fh, '<', $fn
    or die qq{Couldn't open "$fn" for reading: $!};