#!/usr/bin/perl

use warnings;
use strict;

my @coord = ("a111", "a112", "a113");

my @coord2 = ();
for (my $i = 0; $i <= $#coord; $i++) {
   $coord2[$i] = "\$".$coord[$i];
} # for

print join("\n", @coord2);