foreach my $exch (@exch) {
    my ($su_adapter, $su_date);
    foreach (reverse @completefile) {
        last if ($su_adapter, $su_date) = /^.+\\(.+)_.+\..+?:(.+?)\s-\s(.+?)\s.+?\/$exch\s\|.+::(.*Up)\(\)/;
    }
    print "Results for $exch: $su_adapter, $su_date\n";
}