open my $fh, "<rat_event" or die "Failed to open:$!";
while(<$fh>) {
#do something
}