use warnings;
use strict;

my @ids = 0..5;
my @files = 3..8;
for my $id (@ids) {
   for my $file (@files) {
      print "$file\n" if $id eq $file;
   }
}

__END__
3
4
5