# $str defined elsewhere
print "Is alphabetical\n" 
    if( $str eq join '', sort split //, $str );