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) {