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

##</code><code>##

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