Select Code to Download

foreach $exch(@exch) { 
    for($i=0; $i<=$#completefile; $i++) { 
        $su_adapter = undef;
...
        print $su_adapter, $su_date;
    }
}

foreach my $exch (@exch) {
    my ($su_adapter, $su_date);
    foreach (reverse @completefile) {
...
        print "No match for $exch\n";
    }
}