my $T;
if ($hour > 12) {
   $hour -= 12;
   $T = 'PM';
} else {
   $T = 'AM';
}