in reply to using hash values inside an array.
for (qw(061 062 074)){ $coords{$_}[1]... } [download]
for (keys %coords){ $coords{$_}[1]... } [download]