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