use Benchmark qw(cmpthese);

my @d = localtime;
cmpthese (-1, {
    prnt  => sub {
        my $x = sprintf "%d%02d%02d", 1900 + $d[5], $d[4] + 1, $d[3];
        },
    calc  => sub {
        my $x = (($d[5] + 1900) * 100 + $d[4] + 1) * 100 + $d[3];
        },
    });

=>

          Rate prnt calc
prnt 2025658/s   -- -37%
calc 3215550/s  59%   --