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


##</code><code>##

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