my @log_final; while (my $log_line = $log_bckwards->readline) { my $current_timestamp = extract_timestamp($log_line); last if compare_timestamps($current_timestamp, $TIMESTAMP) < 0; unshift @log_final, $log_line; }