#!/usr/bin/perl

use strict;
use warnings;

my $verz="c:/Test";


sub verarbeite {
    my ($name, $dir, $glob) = @_;

    my @files = glob("$dir/$glob");

    my $outdir="$dir/Ergebnis";
    my $outfile="$outdir/$name";

    if( @files ) {

       unless(-d $outdir) {
         mkdir($outdir) or die("Error mkdir $outdir : $!");
       }

        open( my $fh, '>', $outfile) or die("Error open $outfile : $!");
        
        for my $file (@files) {
            print "Searching $file\n";

            # ...

        }

        close($fh);

    }
}

verarbeite("Import", $verz, "*.csv");