sub has_more_than_1_char {
    my $string = shift;
    return defined $string && 1 < length $string;
}