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"; } }