#!/usr/bin/perl
use warnings;
use strict;

sub event_hasher {
    my $cur_event = shift;
    my %event_hash;
    for my $item (@$cur_event) {
        $item =~ s/://g;
        my ($key, $value) = split / /, $item;
        $event_hash{$key} = $value;
    }
    return \%event_hash
}

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