Here is some test code :

use warnings;
use strict;

comparison( "This is another String", "This is yet another string");
comparison( "T5", "T4");
comparison( "1 begins this string", "2");

sub comparison {

    my($a,$b) = @_;

    print "ORD: " . ord($a) . "\n";
    print "ORD: " . ord($b) . "\n";

    if ( $a le $b ) {
        print " string :$a: is less than string :$b:\n\n";
    } 
    else {
        print " string :$a: is greater than string :$b:\n\n";
    }
}
[download]