sub event_hasher{
        my @cur_event = @{$_[0]};
        my %event_hash;
        foreach(@cur_event){
                $_ =~ s/://g;
                my @place_holder = split / /, $_;
                $event_hash{$place_holder[0]} = $place_holder[1];
        }
        return %event_hash;
}