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

##</code><code>##

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

##</code><code>##

$fi: C:/_64/perl526_630/site/lib/PDL/pdldoc.db

##</code><code>##

$fi: /usr/lib/x86_64-linux-gnu/perl5/5.30/PDL/pdldoc.db