Select Code to Download

use strict;
use warnings;
...
);

say for @array;

1+8i
2+5i
6+4i

use strict;
use warnings;
...
my @array = pairmap {cplx($a, $b)} (1, 8, 2, 5, 6, 4);

say for @array;

use strict;
use warnings;
...
    for ([1,8], [2,5], [6,4]);

say for @array;