Select Code to Download

# Comments - To be ignored
field 1    ;field 2    ;field 3    ;field 4    ;field 5;    field 6;

while (<FILE>) {  
    chomp;
...
        }    
    }
}

for $mh ( keys %mailhouse ) {
    foreach (@file) {
...
        }
    }    
}