splice an array

while (<$RLOG>) {
    if (/(^Log Entry\s\d+:.*)/) {
...
for (@ary) {
   print $PLOG, $_;
}

 while(<$PLOG>) {
    ++$alert3orMoreCount if /^Alert Level\s0*(?:[3-9]|\d{2,})/i;
    $pos = $. if /^Alert Level\s0*(?:[3-9]|\d{2,})/i;
}

Select or download this
splice( @ary, $pos, 0, $RTF{ctbl}, $RTF{red}, $RTF{ered} );

__DATA__

...
0x204D4E79AA0200B0 FFFF027000120300

==========================================

Select Code to Download