sub find_files{
my ($dir, $db, $table) = @_;
my $file = "$dir" ."/" . "$db.$table.[0-9][0-9]";
print "$file\n";

my @files = glob $file;
foreach my $found_file (@files){
print "$found_file\n";
}

return @files;
}