Select Code to Download

open(IN1, '<', $input1) or die "Can't read source file $input1 : $!\n"
+;
my $minlength = 1<<20;
...
    }
}
close IN2;

my $max_source_length = ( sort {$b<=>$a} keys %source_lengths )[0];

...
    }
    ...
}

    my @usable_sources = @{$source_lengths{$source_key}};
    printf "for an input1 string of length %d, we can choose from %d i
+nput2 strings\n", $size, scalar @usable_sources;
...
        my $string = $source[$offset];
        # do whatever...
    }