my ($dd, $mm, $yyyy) = (localtime)[3..5];
$mm += 1;
$yyyy += 1900;

##</code><code>##

fake code:
@result = (1,2,3) + (4,5,6);
# intending @result to contain (5,7,9)