my $record_end = qq{\$\$\$\$\n};
while (<DATAFILE>) {
    next if ( $_ ne $record_end );
    # insert stuff from CSV here
}
continue {
    print OUT;
}