while (<*Dec2003*.txt>) {    # this is a glob
    if ( (localtime( (stat)[9]))[4] == 11 ) {
        # open $_ and process it
    }
}