Select Code to Download

foreach $file (@find)
{
...
    }
      close (open);
}

open (ORI, "<validate);

...
        for $identify ( keys %{ $data{$temp} } ) {   
              print " Match $identify=$data{$temp}{$identify} " if (ex
+ists $data{$temp}{$oriID});