Weird trivia time 

sub left_pad {
    my($num, $len) = @_;
    $num = '0' . $num while length($num) < $len;
    return $num;
}