sub is_alphabetical {
    my @c = split //, shift;
    $c[$_] ge $c[$_-1] or return 0 for 1..$#c;
    return 1;
}