#!/usr/bin/perl -w

my $last = 0.0;
while (<>) {
        if (/^\s*\S+\s+\S+\s+\S+\s+([0-9.]+):/) {
                if ($1 < $last) {
                        print "$1 < $last\n";
                        print;
                        exit 0;
                }
                $last = $1;
        }
}