total 3
-rwxr-xr-x    1 me   unknown        26 Mar 12 09:53 Monday.db
-rwxr-xr-x    1 me   unknown        27 Mar 12 09:54 Tuesday.db
-rwxr-xr-x    1 me   unknown        26 Mar 12 09:54 Friday.db
-rwxr-xr-x    1 me   unknown        26 Mar 12 09:54 Dummy

##</code><code>##


 my $INFOFILES = "$HOME/DATA";

my @files=glob "$INFOFILES/*\.db";
print " the files are @files\n";
    for( my $idx=0; $idx < $#files + 1; $idx ++ ) {
        $file = $files[$idx];
        &process_file($file);
    }

sub process_file { }