use strict;
use warnings;
use feature 'say';
use Math::Complex;

my @array = map {cplx($_->[0], $_->[1])} (
    [1, 8],
    [2, 5],
    [6, 4],
);

say for @array;

##</code><code>##

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

##</code><code>##

use strict;
use warnings;
use feature 'say';
use Math::Complex;
use List::Util 'pairmap';

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

say for @array;

##</code><code>##

use strict;
use warnings;
use feature 'say';
use Math::Complex;

my @array;
push @array, Math::Complex->make($_->[0], $_->[1])
    for ([1,8], [2,5], [6,4]);

say for @array;