my @array = qw(key1:value1 key2:value2 key3:value3);
my %hash = map {split ":"} @array;
# .. etc ..