foreach $files (@ARGV) {
...
    foreach $line (@lines) {

        #Mapping des charges directes
        seek MAPPINGFILE1, 0, 0;
        while (<MAPPINGFILE1>) {
...