#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";
}