关于#perl#的问题：请将左侧档名请写出Perl程式，利用参数表示式将档案列表中各行转换成右侧档名

题目：提供两组杂凑

my %unlinkedID=qw(
MMH0001WES 1FA40ED35D9EA0BCDFF804223F1CAFAB
MMH0002WES FDECBCDEDA113641AA3E1EBD1A7784C2
MMH0003WES EED7717DB2AA7812B5D327F8D46AF737
MMH0004WES 0835F0E690D9B31BB42DF2D65C819306
MMH0005WES 2E871013FB45949EAE81B08B315C6CD5
);
my %tissueTypeWES=qw(
B Le
T Te
);
请将左侧档名请写出Perl程式，利用参数表示式将档案列表中各行转换成右侧档名。
MMH0001WESB_S44_L003_I1_001.fastq.gz => 1FA40ED35D9EA0BCDFF804223F1CAFAB_Le_I1.fastq.gz MMH0001WESB_S44_L003_I2_001.fastq.gz => 1FA40ED35D9EA0BCDFF804223F1CAFAB_Le_I2.fastq.gz MMH0001WESB_S44_L003_R1_001.fastq.gz => 1FA40ED35D9EA0BCDFF804223F1CAFAB_Le_R1.fastq.gz MMH0001WESB_S44_L003_R2_001.fastq.gz => 1FA40ED35D9EA0BCDFF804223F1CAFAB_Le_R2.fastq.gz MMH0001WEST_S43_L003_I1_001.fastq.gz => 1FA40ED35D9EA0BCDFF804223F1CAFAB_Te_I1.fastq.gz MMH0001WEST_S43_L003_I2_001.fastq.gz => 1FA40ED35D9EA0BCDFF804223F1CAFAB_Te_I2.fastq.gz MMH0001WEST_S43_L003_R1_001.fastq.gz => 1FA40ED35D9EA0BCDFF804223F1CAFAB_Te_R1.fastq.gz MMH0001WEST_S43_L003_R2_001.fastq.gz => 1FA40ED35D9EA0BCDFF804223F1CAFAB_Te_R2.fastq.gz MMH0002WESB_S46_L003_I1_001.fastq.gz => FDECBCDEDA113641AA3E1EBD1A7784C2_Le_I1.fastq.gz MMH0002WESB_S46_L003_I2_001.fastq.gz => FDECBCDEDA113641AA3E1EBD1A7784C2_Le_I2.fastq.gz MMH0002WESB_S46_L003_R1_001.fastq.gz => FDECBCDEDA113641AA3E1EBD1A7784C2_Le_R1.fastq.gz MMH0002WESB_S46_L003_R2_001.fastq.gz => FDECBCDEDA113641AA3E1EBD1A7784C2_Le_R2.fastq.gz MMH0002WEST_S45_L003_I1_001.fastq.gz => FDECBCDEDA113641AA3E1EBD1A7784C2_Te_I1.fastq.gz MMH0002WEST_S45_L003_I2_001.fastq.gz => FDECBCDEDA113641AA3E1EBD1A7784C2_Te_I2.fastq.gz MMH0002WEST_S45_L003_R1_001.fastq.gz => FDECBCDEDA113641AA3E1EBD1A7784C2_Te_R1.fastq.gz MMH0002WEST_S45_L003_R2_001.fastq.gz => FDECBCDEDA113641AA3E1EBD1A7784C2_Te_R2.fastq.gz MMH0003WESB_S48_L003_I1_001.fastq.gz => EED7717DB2AA7812B5D327F8D46AF737_Le_I1.fastq.gz MMH0003WESB_S48_L003_I2_001.fastq.gz => EED7717DB2AA7812B5D327F8D46AF737_Le_I2.fastq.gz MMH0003WESB_S48_L003_R1_001.fastq.gz => EED7717DB2AA7812B5D327F8D46AF737_Le_R1.fastq.gz MMH0003WESB_S48_L003_R2_001.fastq.gz => EED7717DB2AA7812B5D327F8D46AF737_Le_R2.fastq.gz MMH0003WEST_S47_L003_I1_001.fastq.gz => EED7717DB2AA7812B5D327F8D46AF737_Te_I1.fastq.gz MMH0003WEST_S47_L003_I2_001.fastq.gz => EED7717DB2AA7812B5D327F8D46AF737_Te_I2.fastq.gz MMH0003WEST_S47_L003_R1_001.fastq.gz => EED7717DB2AA7812B5D327F8D46AF737_Te_R1.fastq.gz MMH0003WEST_S47_L003_R2_001.fastq.gz => EED7717DB2AA7812B5D327F8D46AF737_Te_R2.fastq.gz MMH0005WESB_S50_L003_I1_001.fastq.gz => 2E871013FB45949EAE81B08B315C6CD5_Le_I1.fastq.gz MMH0005WESB_S50_L003_I2_001.fastq.gz => 2E871013FB45949EAE81B08B315C6CD5_Le_I2.fastq.gz MMH0005WESB_S50_L003_R1_001.fastq.gz => 2E871013FB45949EAE81B08B315C6CD5_Le_R1.fastq.gz MMH0005WESB_S50_L003_R2_001.fastq.gz => 2E871013FB45949EAE81B08B315C6CD5_Le_R2.fastq.gz MMH0005WEST_S49_L003_I1_001.fastq.gz => 2E871013FB45949EAE81B08B315C6CD5_Te_I1.fastq.gz MMH0005WEST_S49_L003_I2_001.fastq.gz => 2E871013FB45949EAE81B08B315C6CD5_Te_I2.fastq.gz MMH0005WEST_S49_L003_R1_001.fastq.gz => 2E871013FB45949EAE81B08B315C6CD5_Te_R1.fastq.gz MMH0005WEST_S49_L003_R2_001.fastq.gz => 2E871013FB45949EAE81B08B315C6CD5_Te_R2.fastq.gz

#!/user/bin/perl
use diagnostics
my %unlinkedID=qw(
MMH0001WES 1FA40ED35D9EA0BCDFF804223F1CAFAB
MMH0002WES FDECBCDEDA113641AA3E1EBD1A7784C2
MMH0003WES EED7717DB2AA7812B5D327F8D46AF737
MMH0004WES 0835F0E690D9B31BB42DF2D65C819306
MMH0005WES 2E871013FB45949EAE81B08B315C6CD5
);
my %tissueTypeWES=qw(
B Le
T Te
);
$filename="RE_renameList.txt";
open(FILE, $filename) || die "Can't open file $filename : $!\n";
while($_=)
{
if($_=~/^(.+)([TB])_S[0-9]+(_L00[1-8])_([RI][12])(_[0-9]+)(\.fastq\.gz)/) 
  {sampleName=$1; tissueType=$2;readType=$4;$suffix=$6;};


}
close(FILE);

想请教各位我先将原先的档案名存入一个档案并用perl将其打开但不知道要惹和比对自串及接下来的程式码要如和撰写