($a, $b) = ( '16:46:36', '16:00:00');

print 'cmp : ', $a cmp $b, "\n";
print '<=> : ', $a <=> $b, "\n";