for (keys %coords){
  $coords{$_}[1]...
}