my $dir = "$basedir/sql/$sub_dir";
tie %dir_h, 'IO::Dir', $dir;
push @dbplfiles, map { [ $_, $dir ] } grep { /\.pl$/ } keys %dir_h;
my $dir = "$basedir/sql/$sub_dir";
tie %dir_h, 'IO::Dir', $dir;
push @dbplfiles, map { [ $_, $dir ] } grep { /\.pl$/ } keys %dir_h;