my @files = glob '*.txt';
for my $name (@files) {
  my $new_file = $name =~ s/txt$/csv/r;
  process_file($name, $new_file);
}