while ($current ne $finish) {
        unless ( $current =~ s/:0/:3/g ) {
                ( $temp, $trash ) = split /:/, $current, 2;
                $temp = ($temp == 12)?1:++$temp;
                $current = $temp . ":00";
        }
        push @values, $current;
}