my $delta = $desired_length - length $number;
    while ($delta ne 0) {
        $number = '0' . $number;
        --$delta;
    }