my $pm = 0;  # assume AM
if ($h1 > 12) {
  $pm = 1;
  $h1 -= 12;
}