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;