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;
}

my @event = ('a:b c:d');
print "@event\n";
my %type = event_hasher(\@event);
print "@event\n";

# prints:
a:b c:d
a:b c:d