find( { wanted => \&get_files, preprocess => \&nodirs }, "$BASEDIR/$dir" );

    sub nodirs {
        grep !-d, @_;
    }

    sub get_files {

        return unless ( -f $_ );
        my $tmpfile = $File::Find::name if ( ($_) && ( (/^(?!\.).*\.($INTYPES)$/i) || ( (/^(?!\.).*\.($INTYPES)\.($ENGZTYPES)$/i) && !(/\.($OUTTYPES)\.($ENGZTYPES)$/i) ) ) );

        if ( $tmpfile ) {
            if ( ( exists( $globalfiles{$tmpfile} ) ) && ( ( $globalfiles{$tmpfile} ne 'submitted' ) || ( $globalfiles{$tmpfile} ne 'working' ) ) ) {
                return;
            } else {
                if ( -e $tmpfile ) {
                    my $lckfile = getlckfile($tmpfile);
                    push @tmparray, $tmpfile unless ( -e $lckfile );
                }
            }
        }
    }