my @adjustments = (
    sub { $_[0] + 1900 },
    sub { $_[0] + 1 },
    sub { $_[0] + 0 },
    ...
);

my @t = pairwise { $a->($b) } @adjustments, @{[localtime]};