Select Code to Download

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

my @sorted_numbers = sort { $a <=> $b } map { @{$_} } @source_data;