my @xcoords = map { $coords{$_}[0] } (keys %coords
##</code><code>##

my @xcoords = map { $coords{$_}[0] } qw(061 062);

##</code><code>##

my @xcoords = map { $_->[0] } (values %coords);