First you should inspect your array @coordinate whether or not there are newlines in the elements. This can best be done with Data::Dumper:

use Data::Dumper;
...
print Dumper \@coordinate;
[download]

If this confirms that there are newlines, you can either remove them from the elements of @coordinate using chomp @coordinate; or you need to fix it at the time of populating @coordinate. The latter would be preferred but you have not posted that piece of code.