while(<FILEHANDLE>){
  ($a111,$a112,...) = split(/:/);
}
@coord = (a111, a112, a113....)