#!/usr/bin/perl

my $scr = "/home/scr/Linux";
my $dest = 1;
my $genlist = "$scr/genlist";
my $newlist = "/$scr/Packages/Disk$dest/newlist";


opendir(DIR,"$scr");
@dir_list = grep(/^DVD\d+$/,readdir(DIR));
closedir(DIR);

foreach $dir (@dir_list) {
  opendir(DIR,"$scr/$dir/Packages");
  
  @file_list = grep(!/^\.\.?$/,readdir(DIR));
  system("mkdir -p $scr/DVD1/Packages/Disk$dest");
  open (LOG, ">$newlist");

foreach $check (@file_list) {
  open (LIST, "$genlist");
  while (<LIST>){
  chomp;
    if (grep(/^$check/,$_)) {
    print LOG "$_\n";
    }
  }
}	   
  $dest++
}
close (LIST);
closedir(DIR);