while (my $fi = pop @{$this->{File}}) {
  open IN, $fi or
    barf "can't open database $fi, scan docs first";