$to =~ s/\$(\d+)/$a[$1-1]/g;