my $dir = '/verzeichnis/das/du/auslesen/moechtest/';
opendir(DIR,$dir) or die $!; # Verzeichnis "öffnen"
# grep filtert mir die .txt-Dateien aus einer Liste (perldoc -f grep)
# readdir liest den Verzeichnisinhalt und liefert die Liste an grep
my @txt_files = grep{$_ =~ /\.txt$/}readdir(DIR);
closedir DIR;

for my $file(@txt_files){
  $path_to_file = $dir.'/'.$file;
  # mach was mit $path_to_file
}

my @txt = glob(*.txt);
my @sql = map {$a=$_;$a=~s~\.txt$~.sql~;$a} @txt;

my @txt = glob('*.txt');
my @sql = @txt; 
s~\.txt$~.sql~ for @txt;

# beläßt original so wie es ist
sub cmap (&@) {
  map { local $_ = $_; $_[0]->(); $_ } @_[1..$#_];
}

my @copy = cmap { s/a/b/ } @array;