perl - CSV ファイルを変更する Perl

Question

変更しようとしているコードの小さなセクションがあります。私がやろうとしているのは、3 番目の列にファイル名を入力することです。現時点ではほとんど機能していますが、列の各エントリの末尾から「.csv」を削除したいと思います。また、列に「ファイル名」という見出しを付けたいと思います。

上記の "table1" と "table2" の違いが、ここで行おうとしている変更をうまくまとめていることを願っています。

「table1」を作成するために現在使用しているコードは次のとおりです。

#!/usr/bin/perl
use warnings;
use strict;
open M,"<mapcodelist.txt" or die "mapcodelist.txt $!";
my %m;
while( <M> ){
    my($k,$v)=split;
    $v=~s/\./_/g;
    $m{$k}=$v;
}
close M;
chdir "C:/Users/Stephen/Desktop/Database_Design/" or die $!;
@ARGV=<*.csv>;
$^I=".bak";
while( <> ){
    chomp;
    $\=/^mass/?",filename$/": ",$ARGV$/";
    print;
}
for( <*.csv> ){
  my $r;
  ($r=$_) =~ s/\w+_(\w+)(?=\.csv)/$1_$m{$1}/;
  rename $_,$r or warn " rename $_,$r  $!";
}

これに関するアドバイスは大歓迎です。

ありがとう。