Select Code to Download

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