Select Code to Download

my @xcoords = map { $coords{$_}[0] } (keys %coords

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

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