# off hand code
foreach my $sleepval ( @sleepvals) {
    sleep( $sleepval < $maxsleep ? $sleepval : $maxsleep);
    print strftime "%H:%M:%s", localtime;
    print "\n";
}