Select Code to Download

#!/usr/bin/perl -w

...
               foreach(@{$table{$key}{coords}}){print "$table{$key}{co
+ords}[$_]"};
               print "\n";
               };