for ($i = 0; $i < @rat_event; $i++) {
	chomp($rat_event[$i]);
	($station, $delaytime) = (split /\s+/, $rat_event[$i])[0,1];
	# create a Hash for the Stations.
	if ($station = %station_name) {
		#I don't know what do do here.
}

close(rat_event);
close(RAT_STA);