my $T = ($hour > 12) ? "PM" : "AM";