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

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