for (qw(061 062 074)){
  $coords{$_}[1]...
}