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