#Create database filenames table @files
my @ext = ("fb", "gdb", "ib");
my $data = "/opt/databases";

foreach (@ext) {
        my $load = glob "$data*.$_";
        push (@files, $load);
}

foreach (@files) {
print "Found database: $_ \n";
}


##</code><code>##

Found database:
Found database: /opt/databases/DEMO.fb
Found database: /opt/databases/demo2.fb
Found database: