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;