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