foreach(@attchfiles) {   
       my $attchfilename = $_;   
       $attchfilename =~ tr/A-Z/a-z/;    
       rename($_, $attchfilename); 
    }