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;