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

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

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