Why not use File::Find?

use File::Find;
my @database;

find(\&ofas, $db_path);

sub ofas {
  push @database, $_ if /ofas\.db$/;
}
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;