Select Code to Download

 
20131201.06372602.mcp
APRL 7.1963
...
SAMH -1.9653
SHRD -2.4087
SPLN -2.2053

my %station_name = (
DONT => "1",
...
KP04 => "19",
KP05 => "20",
);

 for ($i = 0; $i < @rat_event; $i++) {
    chomp($rat_event[$i]);
    ($station, $delaytime) = (split /\s+/, $rat_event[$i])[0,1];
...

close(rat_event);
close(RAT_STA);

1
time1
...
time2
...
time_n.