Elegent solution, tho the ords are needless.

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

tlhf
(Everyone forgets about ge and le ^_^)