use warnings;
use strict;

my @times = (5, 10, 20, 25, 30, 40, 45, 50, 55, 65, 75, 80, 90);
my @times1;
my @times2;

for my $elmt (@times) {

##</code><code>##

    if (! @times1 || $elmt - $times1[-1] >= 10) {
        push @times1, $elmt;
        next;
    }

##</code><code>##

    if (! @times2 || $elmt - $times2[-1] >= 10) {
        push @times2, $elmt;
        next;
    }

##</code><code>##

    push @times1, $elmt;
}

##</code><code>##

print "Times1: @times1\n";
print "Times2: @times2\n";

##</code><code>##

Times1: 5 20 30 40 50 65 75 90
Times2: 10 25 45 55 80