foreach $record (@BLIST) {
  open(BAN, $record) || &Error($!);
    @BAN = <BAN>;
  close BAN;

  foreach $line (@LOOP) {
    $line =~ s/FNAME/$record/;
    $line =~ s/BANNER/@BAN/;
    print $line;
  }
}