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