for my $exch (@exch) {
   for my $i (0 .. $#completefile) {
      if (my ($su_adapter, $su_date) = $completefile[$i] =~ /.../) {
         print $su_adapter, $su_date;
      }
   }
}