foreach my $number (@sorted_numbers) {
    push @recent, [ $number, $from_whence{$number} ];
    shift @recent if @recent > 4;
    check_and_handle_contig(\@recent) if @recent == 4;
}