Select Code to Download

 my %data;
while (<DATA>) {
    next if /mcp/;
...
    my ($s, $n) = split;
    push @{ $data{$s} }, $n;
}

open(rat_event,"RAT_EVENT");
@rat_event = <rat_event>;

my %rat_event;
while <RAT_EVENT> {
# Same as above
}