$text_color = $image->colorAllocate($custom_colors->{text_color});

##</code><code>##

 $text_color = $image->colorAllocate(@{ $custom_colors->{text_color} });

##</code><code>##

if( $custom_colors->{text_color} =~ m/#(..)(..)(..)/ ) {
    $text_color = $image->colorAllocate(map {hex($_)} ($1, $2, $3) )
}