#!/cygdrive/c/strawberry/perl/bin/perl -d
{
	@hour = ("1200 pm", "1201 am", "1159 am", "1200 pm", "1201 pm", "1159 pm");
	foreach (@hour) {
		($hour, $ph) = split (" ");
		&c12to24($hour, $ph);
	}
}
sub c12to24 {
# convert 12 hour time to 24
#
	my $time = $_[0];
	my $otime = $_[0];
	my $phase = $_[1];

	if ($phase =~ /a/ && $time > 1159) {
		$time = $time - 1200;
	}elsif ($phase =~ /p/ && $time <= 1200) {
		$time = $time + 1200;
	}
	print $otime, $phase, "= $time\n";
}