Select Code to Download

my @adjustments = (
    +1900, +1, 0, 0, 0, 0,
);
my @t = pairwise { $a+$b } @adjustments, @{[localtime]};

my @adjustments = (
...
);

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