use strict;

my $b1 =  900000000;
my $b2 =  999999999;
my $a  = 1000000001;

print (( $b1 < $b2 ) ? "True\n" : "False\n");
print (( $b1 < $a ) ? "True\n" : "False\n");

print (( $b1 lt $b2 ) ? "True\n" : "False\n");
print (( $b1 lt $a ) ? "True\n" : "False\n");

##</code><code>##

True
True
True
False