#!/usr/bin/perl -w
use strict;

my @numbers = qw(022000 022300 022400 022800 023600 024700 024500 024900);

foreach my $number(@numbers)
{
    my $compRes1 = $number < 060000;
    my $compRes2 = $number < '060000';
    
    print "For $number, result1 is $compRes1, result2 is $compRes2\n";
    
    
}