Weird trivia time 

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

say left_pad(13, 5);          # 00013
say left_pad(54321, 5);       # 054321