Select Code to Download

use strict;
use warnings;
...
my @coords = $kmlfile =~ m{$rxCoord}g;

print Data::Dumper->Dumpxs( [ \ @coords ], [ q{*coords} ] );

@coords = (
            '1.0001,2.0002',
...
            '7.0007,8.0008',
            '9.0009,10.0010'
          );