Select Code to Download

use strict;
use warnings;
...
    $old[0] = $old[0] + $old[1];
    return \@old;
}

Compilation started at Thu Mar 22 16:09:33

...

Compilation finished at Thu Mar 22 16:09:33