The arrays contained in @coords are actually array references (created using square brackets), so you should write:

my $coords = join ',', @{$coords[$goal]};
[download]

instead of:

my $coords = join ',', ${coords[$goal]};
[download]

In other words, you need to dereference your arrays.

Michele.