my $T = ($hour > 12) ? do {$hour-=12; "PM"} : "AM";