my @list = map {$_->{time}} @{$envres->[2]};
my ($min, $max) = minmax(@list);

...