Select Code to Download

   for ( 0 .. 9999 ) {
        my $k = 0 x ( 4 - length $_ ) . $_;

sub analyze {
    my $number = shift;
...
    my $missing = 10000 - keys %seen;
    return ($length, $missing, $duplicates)
}