foreach my $open (@deleted)
   {
       ...
   }