use List::Util qw(pairmap);

my @coords = (86.925, 27.988, 86.5278, 27.744, 86.43, 27.365);

my @pairs = pairmap { [ $a, $b ] } @coords;

$shp_writer->add_shape( \@pairs, @attributes );