#!perl -w

use warnings;
use strict;

my @times = ( 1, 2, 3, 4);

print STDERR "Times: @times\n";
if (grep ((0 + $_) >= 99999999), @times) { die('Time values must be < 99999999'); }

##</code><code>##

>perl ptest.pl
Times: 1 2 3 4
Time values must be < 99999999 at ptest.pl line 9.
>